Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53078 / 76732

←次へ　｜　前へ→


	【28473】Re:右クリックメニューに独自コマンドの追加

Jaka - 05/9/7(水) 14:46 -


	引用なし

	パスワード

今使っている奴です。

'右クリックメニュー追加
Sub Auto_Open()
　　右メニュー追加
　　End
End Sub
　　
Sub 右メニュー追加()
　　'On Error Resume Next
　　For Each 右メニュー項目 In Application.CommandBars("cell").Controls
　　　　If 右メニュー項目.Caption = "シートマクロ" Then
　　　　　 Exit Sub
　　　　End If
　　Next
　　With Application.CommandBars("Cell")
　　　　'.Reset
　　End With
　　Set 右メニュー = Application.CommandBars("cell").Controls.Add _
　　　　 (Type:=msoControlPopup, temporary:=False)
　　With 右メニュー
　　　　.Caption = "シートマクロ"
　　　　'.FaceId = 482　　　　　　　　　　'PopUpでは、エラーになる
　　End With
　　Set 右サブ1 = 右メニュー.Controls.Add
　　With 右サブ1
　　　　.Caption = "挿入（最後）"
　　　　.FaceId = 461 '266 '482
　　　　.OnAction = "シート挿入右クリ"
　　End With
　　Set 右サブ2 = 右メニュー.Controls.Add
　　With 右サブ2
　　　　.Caption = "削除"
　　　　.FaceId = 266 '304
　　　　.OnAction = "シート削除"
　　End With
　　Set 右サブ3 = 右メニュー.Controls.Add
　　With 右サブ3
　　　　.Caption = "選択（単独）"
　　　　.FaceId = 479
　　　　.OnAction = "シート選択1"
　　End With
　　Set 右サブ4 = 右メニュー.Controls.Add
　　With 右サブ4
　　　　.Caption = "選択（複数）"
　　　　.FaceId = 264
　　　　.OnAction = "シート選択2"
　　End With
End Sub

ここも読んでおいてね！
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=26743;id=excel

0 hits

▼

【28471】右クリックメニューに独自コマンドの追加 みるみる。 05/9/7(水) 14:22