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

natureguard

在表单中，动态生成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

su45

咱也说不清，等待高手

natureguard

请高手现身