Excelのコマンドボタンに、ツールバーに既存の機能を定義したい

質問

Excelのユーザフォームに定義したコマンドボタン押下で、ツールバーにあるオートシェイプの直線ボタン押下状態にしたいのです。すなわち、コマンドボタンで直線を描線できる状態にしたいのです。

どうすればよいでしょうか？　ご教授ください。泪

回答No.1

dsuekichi

> Excelのユーザフォームに定義したコマンドボタン押下で、ツールバーにあるオートシェイプの直線ボタン押下状態にしたいのです

VBAの「FindControlメソッド」で、「オートシェイプの直線ボタン」を探して、
「Executeメソッド」で実行とか・・・

例えば、
---------------------------------------------------
Private Sub CommandButton1_Click()
Application.CommandBars.FindControl(, 130).Execute
End Sub
---------------------------------------------------

ちなみに「130」は、「オートシェイプの直線ボタン」のIDです。

「List of ID numbers for built-in CommandBar controls in Excel 2000」
（http://support.microsoft.com/kb/213552/en-us）

お礼

できました！　助かりました。

ありがとうございました。