| |
▼よっしー さん：
こんばんは。
>アドインのロード時とアンロード時に
>メニュー項目の追加・削除を行いたいのですが、
>通常時の「ツール」メニューではなく、
>グラフを選択したときに出てくる「ツール」メニューに
>メニュー項目を追加するにはどのようにすればよいのでしょうか。
>
>Application.CommandBars("Tools")
>だと通常時の「ツール」メニューを参照してしまいますよね。
>
>ちなみに、ユーザー設定の「コマンド」タブで
>「組み込みのメニュー」の下から８つめに
>『グラフ選択時の「ツール」メニュー』があるので、
>それを表示させて、そこにコマンドボタンを追加したときの
>マクロを記録させてみたのですが、
>そのマクロを走らせてみると
>グラフ選択時ではなく、通常時の「ツール」メニューに
>ボタンが追加されてしまいます。
>（つまり自動生成マクロでは、２つの「ツール」メニューの
>区別ができていないということになります）
>
>詳しい方がいらっしゃいましたら、
>ご教授いただきますようお願いいたします。
'=======================================================
Sub main()
Dim tools As CommandBarPopup
For Each tools In CommandBars("Chart Menu Bar").Controls
If tools.CommandBar.Name = "Tools" Then
Exit For
End If
Next
With tools.Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "私が作ったアドイン"
.OnAction = "aaaa" 'ここにマクロ名を指定します
End With
End Sub
確認して下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
