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

【问题标题】：How to select an ActiveX Option/Radio Buttons in Form Controls如何在表单控件中选择 ActiveX 选项/单选按钮
【发布时间】：2017-07-27 18:59:23
【问题描述】：

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

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

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

【问题讨论】：

【解决方案1】：

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

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

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

【讨论】：

【解决方案2】：

你可以试试这样的……

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

【讨论】：

这给了我一个 1004 错误，无法获取工作表类的 OLEObjects 属性
既然代码可以在 ActiveSheet 上运行，您确定 ActiveSheet 上有一个 ActiveX 选项按钮吗？还要确保选项按钮的名称与代码中使用的名称相同。