Ошибка выполнения '438' - Видимость кнопки опции \\ VBA

Question

Используются элементы управления формой.Ошибка:

Не разбираюсь в кодировании, но я пытаюсь создать простой макрос Hide / Show для использования на кнопке выбора на листе.Я получаю код ошибки, когда ... ... 1006 *

 Worksheets("Door and Frame Options").OptionButton("Option Button 5").Visible = False

часть кода, кто-нибудь когда-либо сталкивался с этим раньше?

Sub Btn_BespokePaint()

If Worksheets("Template Information").Range("P15").Value = 1 Then

    Worksheets("Door and Frame Options").OptionButton("Option Button 5").Visible = False

End If

If Worksheets("Template Information").Range("P15").Value = 2 Then

    Worksheets("Door and Frame Options").OptionButton("Option Button 5").Visible = True

End If

'Help

End Sub

Заранее спасибо.

Answer 1

Если вы хотите получить доступ к коллекции опциональных кнопок, вы можете использовать коллекцию OptionButton s с S:

Worksheets("Door and Frame Options").OptionButtons("Option Button 5").Visible = False

Вы также можете использовать коллекцию фигур, ноу вас будут смешаны другие типы фигур.

Answer 2

Может быть попробовать что-то вроде

Option Explicit

Public Sub test()

    Select Case Worksheets("Template Information").Range("P15").Value

    Case 1
        Worksheets("Door and Frame Options").Shapes("Option Button 5").Visible = False
    Case 2
        Worksheets("Door and Frame Options").Shapes("Option Button 5").Visible = True

    End Select

End Sub