selectExcel VBA选项button作为默认开始

我打算在excel文档打开时默认select一个首选的非activex单选button。

我正在尝试做什么：

Private Sub Workbook_Open() ActiveSheet.Shapes("Option Button 1").Value = True End Sub 

但是我得到这个错误消息：

运行时错误“438”：

对象不支持此方法的属性

Answer 1

尝试这个：

 ActiveSheet.Shapes("Option Button 1").ControlFormat.Value = xlOn