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

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

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

No.1 回答者： dsuekichi 回答日時： 2007/02/20 10:31

> 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）

この回答へのお礼

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

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

お礼日時：2007/02/20 18:52