如何在窗体控件中select一个ActiveX选项/单选button

我有一个表单控件与ActiveX收音机/选项button。 表单控件名称是Side,包含名称为xOption,oOption和randomSide的Option / Radio Button。 我怎么能够创build一个macros,使我可以打开工作簿设置单选button到一定的值。 录制macros的单击选项会导致空白的macros。 我已经尝试过了:

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

但是,这给了我错误1004和其他代码给我错误91.我真的是新的VBA所以如果我看起来愚蠢,你知道为什么。

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

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

正如你想在打开表格后select它。 将其放在ThisWorkbook

你可以尝试这样的事情…

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