Menüleiste mit Symbol versehen
Claus
ich möchte eine eigene Menüleiste, die ich mit folgender Prozedur im Klassenmodul der Arbeitsmappe erzeuge, mit Symbolen links neben dem Text der einzelnen Befehle versehen. So soll z.B. neben dem Befehl "Drucken..." das Druckersymbol aus der Standardmenüleiste "Datei - Drucken" erscheinen. Wie müsste der Code ergänzt werden damit das funktioniert?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo 0
Application.CommandBars("worksheet menu bar") _
.Controls("TuK-Zeiterfassung").Delete
ActiveWorkbook.Unprotect
Application.DisplayFullScreen = False
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Dim objBar As CommandBar
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
Dim strBar As String
Set objBar = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
objBar.Controls("Zeiterfassung").Delete
On Error GoTo 0
Set objPopUp = objBar.Controls.Add(Type:=msoControlPopup)
objPopUp.Caption = "&TuK-Zeiterfassung"
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "&Leistungs- und Zeiterfassung..."
.OnAction = "Zeiterfassung"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "&Alle Daten löschen..."
.OnAction = "Loeschen"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.BeginGroup = True
.Caption = "&Neuen Monat beginnen..."
.OnAction = "NeuerMonat"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.BeginGroup = True
.Caption = "&Drucken..."
.OnAction = "AusdruckErzeugen"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.BeginGroup = True
.Caption = "&Produktkatalog bearbeiten..."
.OnAction = "Katalog"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.BeginGroup = True
.Caption = "&Sollarbeitszeit ändern..."
.OnAction = "Sollarbeitszeit"
.Style = msoButtonCaption
End With
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Anzeige