AW: @Rudi Maintaire: Löschen von Menüeintrag
21.11.2007 12:08:00
Menüeintrag
Salü Rudi
hier bitte
Private Sub Workbook_Open()
' set menuentries
Call set_clear_bar(True)
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' remove menuentries
Call set_clear_bar(False)
End Sub
Public Sub set_clear_bar(set_it As Boolean)
' set command in menubars: "Worksheet Menu Bar" and "Chart Menu Bar"
' reason: Excel will switch bars if diagram is selected
Dim involved_bars(2) As String
Dim bar_now As String
Dim bar_nr As Long
Dim cmdctrl As CommandBarControl
Dim newcmd As CommandBarControl
Dim cmd_add As CommandBarControl
Dim cmd_sub As CommandBarControl
involved_bars(1) = "Worksheet Menu Bar"
involved_bars(2) = "Chart Menu Bar"
For bar_nr = 1 To 2
bar_now = involved_bars(bar_nr)
Set cmdctrl = Application.CommandBars(bar_now).FindControl(ID:=30006)
Set newcmd = Application.CommandBars(bar_now).Controls(cmdctrl.Index)
Set cmd_add = newcmd.Controls.Add(Type:=msoControlPopup, Temporary:=False)
On Error Resume Next
newcmd.Controls("Set Chart Colors").Delete (True)
On Error GoTo 0
If set_it = True Then
With cmd_add
.Caption = "Set Chart Colors"
.TooltipText = "Choose between stadard and Corporate colors"
End With
Set cmd_sub = cmd_add.Controls.Add(Type:=msoControlButton, ID:=1)
cmd_sub.Caption = "Set Corporate Colors"
cmd_sub.TooltipText = ""
cmd_sub.Style = msoButtonCaption
cmd_sub.OnAction = "set_corporate_colors"
Set cmd_sub = cmd_add.Controls.Add(Type:=msoControlButton, ID:=1)
cmd_sub.Caption = "Set Standard Colors"
cmd_sub.Style = msoButtonCaption
cmd_sub.OnAction = "set_std_colors"
End If
Next
End Sub
Gruss
yogi