Excel VBAで新たなツールバーを作成ならびに表示をするマクロを記述しました。ツールバーにはコマンドボタンを貼り付け、さらにコマンドボタンには他のマクロを登録しています。
処理の実行自体はうまくいったのですが、実際にツールバーが現れたときに、ボタンのイメージだけではなく、
テキストも同時に表示させたいのですが、なかなかうまくいきません。
(手作業に言い換えると「選択したボタンの編集」ボタンから「イメージとテキストを表示」にチェックをつけたい)
ちなみに記述したコードは次のとおりで、私の予想では
★の部分に何か追加するのではないかと思うのですが。
色々と調べてみたのですが、なかなか良い答えが見つけられず・・・・
どうぞ、よろしくお願いいたします。
**↓
Dim MyCombar As CommandBar
Dim MyBtn AsCommandBarButton
' ツールバー「シート初期化」作成
Set MyCombar = Application.CommandBars.Add(Name:="シート初期化")
'「シート初期化」の表示場所
With MyCombar
.Top = 200
.Left = 400
.Visible = True
End With
' シート初期化」にマクロ『Clear_Sheet』登録
Set MyBtn = MyCombar.Controls.Add(Type:=msoControlButton, ID:=2950)
With MyBtn
.OnAction = "Clear_Sheet"
.Caption = "シート初期化"
'★→ここの部分に、何か追加?
End With
No.1ベストアンサー
- 回答日時:
こんにちは。
maruru01です。現状は、Captionプロパティに設定した文字列が、ボタンをマウスでポイントした際のツールチップとして表示されていると思います。
ここで、TooltipTextプロパティにCaptionプロパティとは別の文字列を設定すれば、Captionプロパティの文字列がテキストとして表示されます。
ちなみに、FaceIdプロパティに1~4393までの数値を指定すると、対応するボタンイメージで表示出来ます。
この回答への補足
さっそくの回答ありがとうございました。
実は先ほどからあらゆることを試していて
TooltipTextプロパティも試してみたところです。
確かに、ボタンをマウスでポイントすると、指定した文字列がヘルプ的に表示されるのですが、そうではなくて、マウスでポイントしなくても、イメージとCaptionプロパティーに定義した文字列が同時に表示できるようにしたいのです。
私の説明が悪いと思うので、手作業で同じ作業をおこなった際の手順を記述します。
1.「ユーザ設定」ダイアログボックスを表示
2.編集をおこなう対象となるツールバーのボタンをクリック(ボタンがで選択される(黒枠で囲まれる))。
3.2の状態で右クリックでショートカットメニューから
「イメージとテキストを表示」を選択
→イメージとキャプションで定義した文字列が同時に表示される。
よろしくお願いします。
ありがとうございました。
答えはここにありました。
http://www2.moug.net/cgi-bin/technic.cgi?exvba+T …
教えていただいた FaceID も試してみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
押したボタンの位置取得(共通の...
-
コマンドボタンを押すたびに大...
-
スクロールしてもボタンを常に...
-
PPTのコマンドボタンがクリック...
-
エクセルVBAでOptionButtonのオ...
-
ShowAllDataのエラーを回避したい
-
エクセルVBA シート上にあるコ...
-
エクセルVBA
-
InDesignには「1段階戻る」の...
-
エクセル:マクロボタンが編集...
-
Accessのコマンドボタンの立体...
-
Accessユーザーフォームでコマ...
-
実行中の作業を中止させるコマンド
-
Excel VBA --- コマンドボタ...
-
EXCELでNo.を変えて印刷したい
-
コマンドボタンで「終了ボタン...
-
Notesのメッセージボックスにつ...
-
エクセルでマクロを使わずに複...
-
エクセル ハイパーリンク先で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
スクロールしてもボタンを常に...
-
押したボタンの位置取得(共通の...
-
コマンドボタンがあるかどうか...
-
エクセルVBAでOptionButtonのオ...
-
エクセルVBA シート上にあるコ...
-
Excel VBA --- コマンドボタ...
-
エクセルVBA
-
Accessのコマンドボタンの立体...
-
PPTのコマンドボタンがクリック...
-
コマンドボタンで「終了ボタン...
-
EXCELでNo.を変えて印刷したい
-
エクセルのコマンドボタンの位...
-
ShowAllDataのエラーを回避したい
-
[ExcelVBA] コマンドボタンを押...
-
実行中の作業を中止させるコマンド
-
Wordでドラッグした文字列を括...
-
Accessユーザーフォームでコマ...
-
マクロ登録ボタンに色をつける
おすすめ情報