请教高手：Excel ActiveX 组合框控件，其属性选项卡中的名称，如何通过代码修改？

Question

在表单中，动态生成ActiveX 组合框控件，设计模式下，鼠标左键点击生成的组合框控件，表单左上角显示的是控件名称(默认值是ComboBox1)，鼠标右键点击组合框控件，进入属性选项卡，属性卡中也有一个名称（默认值是ComboBox1）；（据 excel 帮助文件，工作表上的 ActiveX 控件有两个名称：一个是包含该控件的图形的名称，可以在查看工作表时，在“名称”框中看到该名称；另一个名称是控件的代码名称，可以在“属性”窗口中“（名称）”右边的单元格中看到该名称。首次向工作表添加控件时，图形名称和代码名称是匹配的。但是，如果其中一个名称改变了，另一个不会随之自动改变。）；现在想修改这两个名称，网上找到一段示例代码如下，Sub InsertComboBox()，该段代码中的 ctl.Name = "Combo" 不能运行，提示：方法 'Name'作用于对象'IMdcCombo'时失败。
 请教高手：问题怎么解决？还有其它办法通过VBA代码修改控件的这两个名称吗？ Sub InsertComboBox() 
Dim ole As OLEObject 
Dim ctl As MSForms.ComboBox 
Sheet2.Select 
Cells(3, 5).Select 
' 插入复合框 
    Set ole =Sheet2.OLEObjects.Add(ClassType:="Forms.ComboBox.1") 
' 命名 
    ole.Name ="Combo" 
Set ctl = ole.Object 
ctl.Name = "Combo" 
ctl.AddItem "Item1" 
ctl.AddItem "Item2" 
ctl.AddItem "Item3" 
ctl.ListIndex = 0      ' 第一个项目的ListIndex是0 
' 添加Click事件，此处省略 End Sub
 

Answer 1

你跟踪代码了吗？你的错误不是name无法赋值，而是 Cells(3, 5).Select
应该改成： Sheet2.Cells(3, 5).Select

Answer 2

如果sheet中已经有了一个EMBED("Forms.ComboBox.1","")控件，而且名称也是"Combo"，那么你再添加一个控件ctl，赋值Name="Combo" ，就会提示作用于对象'IMdcCombo'时失败的出错信息。

Answer 3

问题不在这里，注释掉这行代码  ctl.Name = "Combo"    运行正常，留着这行代码，出现上述错误提示

Answer 4

如果sheet中已经有了一个EMBED("Forms.ComboBox.1","")控件，而且名称也是"Combo"，那么你再添加一个控件ctl，赋值Name="Combo" ，就会提示作用于对象'IMdcCombo'时失败的出错信息。请看原文中的变量定义，ole 和 ctl 是不同的变量，那么，应该可以赋值相同的 Name 吧？

Answer 5

你应该学VB的做法，每运行一次ComboBox控件名称加1，如Combo1，Combo2，Combo3...这样就不会出现ComboBox控件名称重复的情况了。

Answer 6

如：ctl.Name = "Combo"改为ctl.Name = "Combo" & ActiveSheet.Shapes.Count