Answers:
如果您正在使用Form Control OPTION BUTTON
,则应使用不同的命令。
以下是几个例子:
ActiveSheet.OptionButtons("Option Button 1").Select
ActiveSheet.Shapes("Option Button 1").ControlFormat.Value = Xlon
Range("A1")=Activesheet.OptionButtons("Option Button 1").value
ActiveSheet.OptionButtons("Option Button 1").LinkedCell = "Sheet1!$A$1"
要么
ActiveSheet.Shapes("Option Button 1").ControlFormat.LinkedCell = "Sheet1!$A$1"
在选项按钮上运行宏单击:
ActiveSheet.Shapes("Option Button 1").OLEFormat.Object.OnAction = "Module1.MyMAcro"