文書番号: 402159
最終更新日: 1997/10/21
Sub AddButton() 'ツールバー MyToolbar を追加 With Toolbars.Add("MyToolbar") .Visible = True 'ツールバー MyToolbar にボタンを追加し、マクロ MyMacro を割り当てる .ToolbarButtons.Add Button:=229, OnAction:="MyMacro" 'ボタンに名前 MyToolTips をつける .ToolbarButtons(1).Name = "MyToolTips" End With Application.MacroOptions macro:="MyMacro", _ StatusBar:="これは私のマクロです" End Sub Sub MyMacro() MsgBox "実行しました" End Sub
Keywords: KBHOWTO KB402159
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch