如何 select ActiveX Option/Radio 表单控件中的按钮

Question

我有一个带有 ActiveX Radio/Option 按钮的表单控件。表单控件名称为 Side，包含 Option/Radio 个名为 xOption、oOption 和 randomSide 的按钮。我如何才能创建一个宏，允许我在打开工作簿时将单选按钮设置为某个值。录制我单击选项的宏会导致空白宏。我已经尝试过：

ActiveSheet.Shapes.Range(Array("Side")).Select
ActiveSheet.Shapes.Range("xOption").OLEFormat.Object.Value = 1

但这会给我错误 1004，而其他代码会给我错误 91。我对 VBA 真的很陌生，所以如果我看起来很傻，你知道为什么。

Answer 1

您可以尝试这样的操作...

ActiveSheet.OLEObjects("xOption").Object.Value = 1

Answer 2

尝试这样的事情，使用 Worksheets 而不是 ActiveSheet:

Private Sub Workbook_Open() 
    Worksheets("your sheet name here").OLEObjects("xOption").Object.Value = 1 
End Sub

打开sheet后选择你想要的就可以了。将其放在 ThisWorkbook.

上

如何 select ActiveX Option/Radio 表单控件中的按钮

How to select an ActiveX Option/Radio Buttons in Form Controls

excel

vba

activex