フォームコントロールボタンから代替テキストを返す

Question

フォームコントロールボタンから代替テキストを取得する方法はありますか？

形状のため、次の作品：

Debug.Print Activesheet.Shapes(Application.Caller).AlternativeText 

ただし、ボタンのために、これは動作しません：

Debug.Print Activesheet.Buttons(Application.Caller).AlternativeText 

は、このプロパティを返すことが可能ですか？

Answer 1

は、以下のことを試してみてください。

ActiveSheet.Buttons(Application.Caller).ShapeRange.AlternativeText 

ButtonオブジェクトがAlternativeText性質を持っていないが、それはShapeRangeとAlternativeTextがShapeRangeに属していません。

将来、オブジェクト変数に割り当てて、Localsウィンドウを使用して、デバッグ中に実行時にオブジェクトのプロパティを調べます。多くの場合、プロパティの周りを突くことができます&あなたが必要なものを見つける！