我想在Excel 2010中使用一个活动的X控件来获取它自己的替代文本,并在它被鼠标悬停时显示在文本框中。
如果我使用绝对引用.Shapes("CommandButton1").AlternativeText
它获取文本,我可以用它做我想要的,但是我想要一个更动态的功能,所以相同的代码可以在没有编辑的多个按钮上使用,以便它将始终获得启动按钮自己的替代文字。
我在研究中发现了这一点,Self-referencing from inside an Excel VBA control
看起来它会做我需要的但是当我运行模块时它会抛出一个运行时错误13,在这一行输入不匹配Set shpButtons(btnCount).MyButton = shp.OLEFormat.Object.Object
如果重要的是我试图在MouseMove事件上执行此操作,但是当我测试前一个线程的代码时,我使用直接点击查看它是否会在第一个位置,它没有,给出键入不匹配错误。
任何有助于此工作的帮助将不胜感激。
先谢谢你们,林。