ボタンを追加アドイン拡張メニュー②(VBA-Excel)プログラム試験 скачать в хорошем качестве

ボタンを追加アドイン拡張メニュー②(VBA-Excel)プログラム試験

(D0002)mv【応用】(VBA-Excel)アドインメニューへボタンを追加するプログラム試験② 【目次】 1.ボタンからプロジシャーを実行 2.ボタンか削除プロジシャーを実行 ----------------------------------- ≪使用したソースプログラム≫ /////////「Module1モジュール」 Option Explicit ' *********************************************** ' コマンドバーを登録する ' *********************************************** Function Open_CommandBar() Dim Menu1 As Object: Dim S1M As Object: Dim S2M As Object Set Menu1 = CommandBars("Worksheet Menu bar"). _ Controls.Add(Type:=msoControlPopup, Temporary:=False, Before:=8) Menu1.Caption = "拡張コマンド" Set S1M = Menu1.Controls.Add S1M.Caption = "【表示】メッセージ" S1M.OnAction = "OnAction_1" S1M.BeginGroup = True S1M.FaceId = 1382 Set S2M = Menu1.Controls.Add S2M.Caption = "【削除】ボタン" S2M.OnAction = "OnAction_2" S2M.FaceId = 67 End Function ' *********************************************** ' コマンドバーを削除「OnAction_2」 ' *********************************************** Function OnAction_2() Application.CommandBars("Worksheet Menu bar"). _ Controls("拡張コマンド").Delete End Function Function OnAction_1() MsgBox "OnAction_1 プロシージャ実行中" End Function ///////// -----------------------------------