vba - 如何在表单控件中选择 ActiveX 选项/单选按钮

Question

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

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

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

Answer 1

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

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

正如您希望在打开工作表后选择它。把它放在 ThisWorkbook .