EXCELでポップアップメニューを

質問

EXCELで(VBA)ポップアップメニューを作成したいのですが
作り方を教えて下さい。
EXCEL等の上部に「ファイル(F)、編集(E)・・・」あるこれ
らのボタンと同等な動作をするものを考えてます。

回答No.1

imogasi

もちろん処理はＶＢＡでの処理を指定すると思いますので、ＶＢＡは覚悟していると思います。
ーー
少し前からCommandbarでメニューやボタンを統一記述する考えが取り入れられているようです。
下記はそれでなく、旧式のコードかもしれませんが２００２ではできました。
ーーー
Sub test10()
'既存メニューへの追加
With Application.MenuBars("Worksheet").Menus("ファイル").MenuItems
.AddMenu "HTMLへ変換"
End With
End Sub
ーーー
Sub test11()
'追加したメニューの削除
With Application.MenuBars("Worksheet").Menus("ファイル"). _
MenuItems("HTMLへ変換").Delete
End With
End Sub
ーーー
Sub test12()
'定例処理(例）というメニューを現在の「ヘルプ」の右へ追加
Application.MenuBars("Worksheet").Menus.Add ("定例処理")
End Sub
ーー
Sub test13()
'追加したメニュー削除
With Application.MenuBars("Worksheet").Menus("定例処理")
.Delete
End With
End Sub
ーーー
Sub test14()
'追加メニューにサブメニュー「作業１」を登録
With Application.MenuBars("Worksheet").Menus("定例処理")
.MenuItems.Add ("作業１")
End With
End Sub
ーーー
Sub test16()
'メニューに作業1登録したものを削除
With Application.MenuBars("Worksheet").Menus("定例処理").MenuItems("作業１")
.Delete
End With
End Sub
ーーー
Sub test15()
'サブメニュー「作業１」にアクション（ルーチン）を設定
With Application.MenuBars("Worksheet").Menus("定例処理").MenuItems("作業１")
.OnAction = "test02"
End With
End Sub
ーーー
アクションの例として
Sub test02()
MsgBox "AAA"
End Sub
などを作っておき、テストでクリックしたとき、そこへ飛んで、通ったことを納得。
ーーー
これで参考になると思うが、どうでしょう。
削除方法の説明を入れているのは、テスト後に削除が必要でしょうから、です。

お礼

ありがとうございます。
参考にちょっとやってみます。

補足

ユーザーフォムでメニューバーもどきを作成した場合
は、どのようにすれば同じような動きができますか？
すいませんが宜しくお願いします。