aber dann bleibt die Symbolleiste doch auch allgemein im Excel erhalten
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("TestMenü").Delete
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("TestMenü").Visible = False
End Sub
Private Sub Workbook_Activate()
Application.CommandBars("TestMenü").Visible = True
End Sub
den Eintrag durch die Datei temporär erstellen zu lassen
Private Sub Workbook_Activate()
Application.CommandBars("Tracking").Visible = True
Set cbBar = Application.CommandBars.Add("Tracking", Position:=msoBarTop, Temporary:=True)
End Sub
Public Const strLeistenname = "Eigene Menüleiste" 'Der Name der Menüleiste
Sub MenueleisteErstellen()
Dim cbBar As CommandBar, cnt As CommandBarButton
On Error Resume Next
MenueleisteLoeschen 'Menüleiste zuvor löschen - falls bereits vorhanden
'Menüleiste TEMPORÄR erstellen : Wird bei Excel Ende automatisch gelöscht
Set cbBar = Application.CommandBars.Add(strLeistenname, Temporary:=True)
'Button 1 in der Symbolleiste erstellen
Set cnt = cbBar.Controls.Add(msoControlButton)
With cnt
.OnAction = "Makro1" 'Bei Klick auf diesen Button soll "Makro1" gestartet werden
.Caption = "Beschriftung des Button 1" 'Kann auch weggelassen werden
.FaceId = 171 'Icon des Buttons - per FaceID Browser ermitteln
.Style = msoButtonIcon 'Nur Icon ohne Text anzeigen
.TooltipText = "Hier Quickinfo-Text für den Button 1 eingeben"
End With
'Button 2 in der Symbolleiste erstellen
Set cnt = cbBar.Controls.Add(msoControlButton)
With cnt
.OnAction = "Makro2" 'Bei Klick auf diesen Button soll "Makro2" gestartet werden
.Caption = "Beschriftung des Button 2" 'Kann auch weggelassen werden
.FaceId = 175 'Icon des Buttons - per FaceID Browser ermitteln
.Style = msoButtonIcon 'Nur Icon ohne Text anzeigen
.TooltipText = "Hier Quickinfo-Text für den Button 2 eingeben"
End With
cbBar.Visible = True 'Symbolleiste anzeigen
End Sub
Sub MenueleisteLoeschen()
On Error Resume Next
Application.CommandBars(strLeistenname).Delete 'Symbolleiste löschen
End Sub
Public Const strLeistenname = "Eigene Menüleiste"