vba - 运行时错误 '438' - 选项按钮可见性 \\ VBA

Question

正在使用的表单控件。错误：

不精通编码，但我正在尝试生成一个简单的隐藏/显示宏，用于工作表上的选项按钮。我在使用时收到错误代码...

 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

提前致谢。

标签： vbavisibilityradio-button

Answer 1

如果要访问选项按钮的集合，可以使用 OptionButton的集合，带有 S：

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

您也可以使用 Shapes Collection，但您会混入其他类型的形状。