ボタンを追加アドインメニュー(VBA-Excel)プログラム試験①
Автор: そふとのイトウ
Загружено: 2026-01-12
Просмотров: 2
アドインメニューへボタンを追加する試験①
【目次】
1.アドインメニューへボタンを追加
2.登録したボタンよりメニューを実行
-----------------------------------
≪使用したソースプログラム≫
/////////「Module1モジュール」
Option Explicit
' ***********************************************
' コマンドバーを登録する
' ***********************************************
Function Open_CommandBar()
Dim myCmdBar As CommandBar
Dim myCmdBarBtn As CommandBarButton
Set myCmdBar = Application.CommandBars.Add(Name:="メニュー_試験", Temporary:=True)
Set myCmdBarBtn = myCmdBar.Controls.Add(Type:=msoControlButton)
myCmdBarBtn.Caption = "ユーザー専用ボタン(メニュー削除の実行)"
myCmdBarBtn.TooltipText = "Text_00"
myCmdBarBtn.Style = 2
myCmdBarBtn.OnAction = "OnAction_00"
myCmdBar.Position = 1
myCmdBar.Visible = True
End Function
' ***********************************************
' コマンドバーを削除
' ***********************************************
Function OnAction_00()
'
Application.CommandBars("メニュー_試験").Delete
MsgBox "ボタン削除プロシージャ実行中"
'
End Function
-----------------------------------
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке: