在Excel vba中更改代码名称和ActiveX控件的形状名称

Excel VBA：
我正在尝试通过OLEObjects对象获取一些activex选项button，但是我发现即使在对象的属性窗口中更改了（Name）的值，它仍然需要“OptionButton1”默认名称作为关键字。

我知道Excel VBA中的一些对象有一个代码名和另一个名字，这个名字也是用来从OLEObjects得到它的键，但我不知道如何改变这个“其他”的名字。

我传递我的对象名称作为参数（基本上）到一个函数，所以我不能这样做：

ActiveSheet.optMyNewName.Value 

pipe他呢。 我需要能够做到这一点：

 ActiveSheet.OLEObjects("optMyNewName").Object.Value 

但目前只有这个作品：

 ActiveSheet.OLEObjects("OptionButton1").Object.Value 

Answer 1

如果将一个string传递给OLEObjects集合，它将使用Caption属性作为键。 传递标题作为参数，它应该工作。