|
おはようございます。
右クリックにメニューを追加したいということでしょうか。
全部、Personal.xlsのThisworkbookに書いてください。
ここから===============================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'念のため
Dim cb As CommandBar
For Each cb In Application.CommandBars
'Cellというバーは2つある(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というバーは2つある(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
その後レスなし( ´・ω・)ショボーン
|
|