我有一个带有ActiveX Radio / Option Buttons的表单控件。 表单控件名称为Side,包含名称为xOption,oOption和randomSide的选项/单选按钮。 如何创建一个允许我在打开workBook时将单选按钮设置为某个值的宏。记录我单击选项的宏会导致空白宏。我已经尝试过了:
ActiveSheet.Shapes.Range(Array("Side")).Select
ActiveSheet.Shapes.Range("xOption").OLEFormat.Object.Value = 1
但是这给了我错误1004而其他代码给我错误91.我对VBA真的很陌生,所以如果我看起来很蠢,你就知道为什么。
答案 0 :(得分:1)
使用Worksheets
代替ActiveSheet
来尝试这样的事情:
Private Sub Workbook_Open()
Worksheets("your sheet name here").OLEObjects("xOption").Object.Value = 1
End Sub
您希望在打开工作表后选择它。将其放在ThisWorkbook
上。
答案 1 :(得分:0)
您可以尝试这样的事情......
ActiveSheet.OLEObjects("xOption").Object.Value = 1