[[20170507203819]]　『VBE上の右クリックメニューのカスタマイズボタンａx（半平太）　ページの最後に飛ぶ

『VBE上の右クリックメニューのカスタマイズボタンが作動しない』（半平太）

 お世話になります。

 VBE画面上の右クリックメニューに独自項目を追加したのですが、
 そのボタンをクリックしてもマクロが実行されません。
 エラーも出ません。

 XL2007以降、エクセルのメニューがリボンに変わったのが関係するのかと思って
 XL2002で同じようなテストをしましたが、それも反応なしです。

 VBEの右クリックメニューでは、独自ボタンは相手にされないのでしょうか？
 それとも何かミスっているんでしょうか？

 Sub VBEmacro()　’右クリックメニューに追加するプロシージャ

 　　Dim aa, CDWND As Object, mustAdd As Boolean

     mustAdd = True
     Set CDWND = Application.VBE.CommandBars("Code Window")

     For Each aa In CDWND.Controls
         If aa.Caption = "VBE右クリックメニュー" Then
             mustAdd = False
             Exit For
         End If
     Next

     If mustAdd Then
         With CDWND.Controls.Add(Type:=msoControlButton, temporary:=True)
             .Caption = "VBE右クリックメニュー"
             .OnAction = "Test1"
         End With
     End If

 End Sub

 Sub Test1()　’テスト用サンプルプロシージャ
     MsgBox "Hello World"
 End Sub

 なお、これと関係があるか分かりませんが、
 (1)「VBAプロジェクトオブジェクトモデルへのアクセスを信頼する(V)」にはチェックを入れております。

 (2)Test1を単独で実行すれば、"Hello World"のメッセージが出ます。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

これと同じ質問でしょうか。

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1393691573

（マナ） 2017/05/07(日) 21:13

マナさん

早速のご回答、有難うございます。

ズバリです。

1日中、調べていて疲れていたところです。

助かりました　m(__)m

（半平太） 2017/05/07(日) 22:04

コメント返信：

[ 一覧(最新更新順) ]

[[20170507203819]] 『VBE上の右クリックメニューのカスタマイズボタンａx（半平太） ページの最後に飛ぶ

[[20170507203819]]　『VBE上の右クリックメニューのカスタマイズボタンａx（半平太）　ページの最後に飛ぶ