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

时间:2017-07-27 18:59:23

标签: excel vba excel-vba activex

我有一个带有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真的很陌生,所以如果我看起来很蠢,你就知道为什么。

2 个答案:

答案 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