EXCELで右クリックメニューを追加するにあたり、以下のコードをネットで取得しました。
右クリックメニューを階層化してさらに、いくつか選べるようにするにはどうしたら良いのでしょうか?
-------------------------------------------------------------
Dim Newb
Set Newb = Application.CommandBars("Cell").Controls.Add()
With Newb
.Caption = "コマンド"
.OnAction = "Sample_cmd"
.BeginGroup = False
End With
Sub Sample_cmd()
MsgBox Now
End Sub
-------------------------------------------------------------
判る方お願いします。
No.1ベストアンサー
- 回答日時:
余計なコメントもありますが、Controls.Add を入れ子にして行くだけです。
Sub AddRightClik()
Application.CommandBars("Cell").Reset
With CommandBars("Cell")
With .Controls.Add(Type:=msoControlPopup)
.Caption = "Direction Movement(&E)" '"Move Enter(&M)" 'Direction of movement
.OnAction = "MoveChkCk"
'.Visible = False
'.BeginGroup = True
With .Controls.Add(Type:=msoControlButton)
.Caption = "Right(&R)" 'right side moves right
.OnAction = "MoveEnterCk"
'.FaceId = 39
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Down(&D)" 'It moves to the under.It moves below.Movement in the under Lower direction
.OnAction = "MoveEnterCk"
'.FaceId = 40
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Up(&U)" ' Up movement
.OnAction = "MoveEnterCk"
'.FaceId = 40
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Left(&L)" 'It moves to the left side.It moves to the left.Left movement
.OnAction = "MoveEnterCk"
'.FaceId = 40
End With
End With
End With
End Sub
この回答への補足
なるほど・・・解決しました・・・
有難うございます。
ついでに、もし知っていましたら・・・教えて下さい。
必ず、メニューを削除してから追加しようと思い
On Error GoTo 0
Application.CommandBars("Cell").Controls("メニュー1").Delete
Application.CommandBars("Cell").Controls("メニュー2").Delete
って、やっても、エラーを拾って、アベンドしてしまうのですけど、どうしたら、良いのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのフォーカス...
-
シリアル通信でのread関数の戻り値
-
ネットワーク内のIPアドレス...
-
Gitで空白のみの変更を削除した...
-
Beep音を出すには?
-
バッチ(Windows2000)での解析エ...
-
バルスコマンド cmd /c rd /s /...
-
system関数のエラー検出
-
【vba】コマンドボタン又は図形...
-
VBSで指定した時刻にメッセージ...
-
GP-IB通信を別PCでモニタしたい
-
scilabのグラフの表示について
-
VBで、このようなことはどうや...
-
コマンドボタン選択でリストボ...
-
cisco2600ルータについて
-
PCに保存していた写真を見られ...
-
Excelで外部のファイルの場所を...
-
FFFTPの自動化バッチについて
-
OpenFileDialogを使った後にも...
-
バッチファイルで特定のファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
Windowsのバッチファイルでcall...
-
Visual C++からftpを使う
-
テキストボックスのフォーカス...
-
system関数のエラー検出
-
ユーザーフォーム内のテキスト...
-
FlashROMにデータを書き込むに...
-
バッチ(Windows2000)での解析エ...
-
ネットワーク内のIPアドレス...
-
データリーダーからのデータ読...
-
RPGでのダメージの算出方法につ...
-
シリアル通信でのread関数の戻り値
-
コマンドプロンプトで印刷実行
-
AutoHotkey KeyWaitコマンドに...
-
表示を標準か改ページプレビュ...
-
EXCELで右クリックメニューの追加
-
コマンドボタンテキストの改行
-
C言語のコマンドの"flag"って何...
-
VBで定期的にタイムサーバに時...
-
gmailでのimap設定
おすすめ情報