[XL]ユーザー定義ボタンのボタン名とステータスバーに表示する文字の設定方法

詳細

[表示] - [ツールバー] コマンドを実行すると [ツールバー] ダイアログ ボックスが表示されます。[ボタン名の表示] チェック ボックスオン (×が付いている状態) のとき、ツールバーのボタンにマウス ポインタを合わせると、ボタンの名前が表示されます。
ユーザー定義ボタンの上にマウス カーソルを合わせたときに表示される「ボタン名」の指定は ToolbarButton オブジェクトの Name メソッドを使用します。

サンプル

次のサンプル モジュールでは、ボタン名 "MyToolTips" のユーザー定義ボタンを含んだツールバー "MyToolbar" を表示しています。ボタン "MyToolTips" にマウス ポインタを合わせると「 MyToolTips 」というボタン名が表示されると共に、ステータスバーに「これは私のマクロです」と表示されます。ボタン "MyToolTips" をクリックすると「実行しました」とメッセージ ボックスが表示されます。

  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

注意

「サンプル」 を二度以上実行しようとすると、同じ名前のツールバーを追加することができないためにエラーメッセージ「 Toolbars クラスの Add メソッドが失敗しました。」が表示されます。二度以上マクロを実行する場合は、[表示] - [ツールバー] コマンドを実行して [ツールバー] ダイアログ ボックスの [ツールバー一覧] リストボックスから "MyToolbar" を選択後 <削除> ボタンをクリックして ツールバーを削除してから実行してください。