Vba 如何在窗体控件中选择ActiveX选项/单选按钮

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

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

---

但这给了我错误1004，其他代码给了我错误91。我是VBA新手，所以如果我看起来很笨，你知道为什么。

你可以试试这样的东西

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

---

尝试类似的方法，使用

工作表

而不是

活动表

：

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

---

正如您希望在打开图纸后选择它一样。将其放置在

ThisWorkbook

打开工作簿时是否要选择一个选项？@paulinhax Yea，刚刚一个这给了我一个1004错误，无法获取工作表类的OLEObjects属性，因为代码将在ActiveSheet上工作，您确定ActiveSheet上有ActiveX选项按钮吗？还要确保选项按钮的名称与代码中使用的名称相同。