Excel VBA質問箱 IV

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

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


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

76202 / 76807

←次へ　｜　前へ→


	【5030】Re:右クリしたらどうなります？

りん

- 03/4/18(金) 7:59 -


	引用なし

	パスワード

おはようございます。

右クリックにメニューを追加したいということでしょうか。

全部、Personal.xlsのThisworkbookに書いてください。
ここから===============================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
　 '念のため
　 Dim cb As CommandBar
　 For Each cb In Application.CommandBars
　　　'Cellというバーは２つある（V3過去ログ参照）
　　　If cb.Name = "Cell" Then cb.Reset
　 Next
End Sub
Private Sub Workbook_Open()
　 Dim cb As CommandBar, cbc As CommandBarButton
　 For Each cb In Application.CommandBars
　　　'Cellというバーは２つある（V3過去ログ参照）
　　　If cb.Name = "Cell" Then
　　　　 cb.Controls(1).BeginGroup = True '今まで先頭
　　　　 'コマンド追加
　　　　 Set cbc = cb.Controls.Add(Type:=msoControlButton, Before:=1)
　　　　 With cbc
　　　　　　.FaceId = 108
　　　　　　.Caption = "オレンジいろ♪"
　　　　　　.Style = msoButtonIconAndCaption
　　　　　　.OnAction = ThisWorkbook.Name & "!Thisworkbook.CellOrange"
　　　　 End With
　　　End If
　 Next
　 Set cbc = Nothing: Set cb = Nothing
End Sub
'↓右クリックメニューに登録したいマクロ
Private Sub CellOrange()
　 If TypeName(Selection) = "Range" Then _
　　　Selection.Interior.ColorIndex = 44
End Sub
ここまで===============================

こんな感じです。

ちなみに
V3過去ログ（Personalで右クリックメニューに追加）
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=10224;id=Excel

V3過去ログ（右クリックメニューが二つある）
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9617;id=Excel
その後レスなし（ ´･ω･）ｼｮﾎﾞｰﾝ

3 hits

▼

【5027】ショートカットメニューにマクロを登録さ... みにまる 03/4/17(木) 22:33