Проблема с Z-Order

Question

У меня есть несколько форм и флажков в электронной таблице. Я хочу создать функцию, которая помещает конкретную фигуру на передний план (более высокий Z-порядок, чем у ее пиров), когда установлен соответствующий флажок Вот код, который у меня сейчас есть:

Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Sheet1.Shapes("blueoval").ZOrder msoBringToFront
End If
End Sub

Я получаю сообщение об ошибке «424» при каждом запуске этого кода. Я новичок в VBA для Excel, поэтому любая помощь будет принята с благодарностью. Что не так с этим кодом? Чего не хватает? и т.д .. Спасибо!

Answer 1

Ваш код работает на меня.

Проверьте, что:

Ваш флажок является элементом управления ActiveX, а не элементом формы. Имя флажка - CheckBox3. У вас есть форма на Sheet1, называемая blueoval. Имя листа с синим овалом на самом деле является Sheet1 (проверьте это в редакторе Visual Basic). В редакторе Visual Basic выберите «Инструменты»> «Ссылки» и убедитесь, что нет ссылок с пометкой MISSING. Ваш код находится на листе, где установлен флажок, а не в отдельном модуле.