Excel VBA 2010自参考其内部的活动X按钮'；他自己的行动

我试图让Excel 2010中的活动X控件获得自己的备用文本，并在鼠标悬停时将其显示在文本框中

如果我使用绝对引用

.Shapes（“CommandButton1”）.AlternativeText

，它会得到文本，我可以用它做我想做的事情，但是我想要一个更动态的功能，这样相同的代码可以在多个按钮上使用，而不需要编辑，这样它将始终得到启动按钮自己的alt文本

我在研究中发现了这个， 它似乎可以满足我的需要，但当我运行模块时，它会抛出运行时错误13，这一行的类型不匹配

Set shpButtons（btnCount）.MyButton=shp.OLEFormat.Object.Object

如果这很重要的话，我会尝试在MouseMove事件上执行此操作，但是当我测试前一个线程中的代码时，我使用直接单击来查看它是否会首先导致类型不匹配错误，而它没有这样做

如果您能帮助我们实现这一目标，我们将不胜感激

林，提前非常感谢大家