|
数年前2003で作ったVBAの右クリックメニューが2007で動きません。
勿論VBA可能にしたExcel2007です。
原因と対策をお教えください。
This WorkBook に書いたコード↓
Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
.Caption = "はがき印刷"
With .Controls.Add(Type:=msoControlButton)
.Caption = "汎用宛名印刷"
.OnAction = "MainCord"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = ""
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "返信用印刷"
.OnAction = "返信面印刷"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = ""
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "送信者情報入力"
.OnAction = "送信者情報入力"
End With
End With
End Sub
|
|