Excel VBA 2010在自己的操作中自引用Active Xbutton

我想在Excel 2010中有一个活动的X控件获取它自己的替代文本，并将其显示在一个文本框中，当它被蒙上了阴影。

如果我使用绝对引用.Shapes("CommandButton1").AlternativeText它获取文本，我可以做我想要的，但是我想要一个更dynamic的function，所以相同的代码可以在没有编辑的多个button上使用，所以它将始终获得启动button自己的Alt文本。

我发现这在我的研究， 从Excel VBA控件内部自引用它似乎将做我所需要的，但是当我运行模块它会引发运行时错误13，types不匹配Set shpButtons(btnCount).MyButton = shp.OLEFormat.Object.Object

如果它很重要我试图做一个MouseMove事件，但是当我testing从前一个线程的代码我使用直接点击，看看它会在第一个地方，它没有，给出types不匹配的错误。

任何帮助得到这个工作，将不胜感激。

林先生，非常感谢你们。