ich würde gerne eine neue Symbolleiste per Makro erstellen. Ich hab mich auch schon daran versucht, aber ich möchte den einzelnen Schaltflächen gerne Attribute zuweisen.
Beispiele:
- Formatvorlage, Schriftart, Schriftbreite in der Breite reduzieren
- zwischen einzelnen Symbolen Abstand einfügen
- eine benutzerdefinierte Schaltfläche einfügen und dieser ein Makro zuweisen
Mein bisheriges VBA läuft gut und sieht wie folgt aus:
----------------------------------------------------------------------------------------------
Sub LeisteHinzu()
Dim cmdB As CommandBar: Set cmdB = CommandBars.Add("Neue_Leiste", temporary:=True)
With cmdB: .Left = 50: .Top = 100: .Visible = True: End With
With Application.CommandBars("Neue_Leiste").Controls:
.Add Type:=msoControlButton, ID:=3, Before:=1 '&Speichern
.Add Type:=msoControlButton, ID:=4, Before:=2 '&Drucken...
'.Add Type:=msoControlButton, ID:=2521, 'Drucken (hp LaserJet 1320 PCL 6)
.Add Type:=msoControlComboBox, ID:=1732, Before:=3 '&Formatvorlage:
.Add Type:=msoControlComboBox, ID:=1728, Before:=4 '&Schriftart:
.Add Type:=msoControlComboBox, ID:=1731, Before:=5 '&Zoom:
.Add Type:=msoControlComboBox, ID:=1733, Before:=6 '&Schriftgrad:
.Add Type:=msoControlButton, ID:=2949, Before:=7 '&Benutzerdefiniertes Menüelement
.Add Type:=msoControlButton, ID:=186, Before:=8 ' Ma&kros...
.Add Type:=msoControlButton, ID:=2186, Before:=9 ' Auf&zeichnen...
.Add Type:=msoControlButton, ID:=893, Before:=10 ' &Blatt schützen...
.Add Type:=msoControlButton, ID:=3159, Before:=11 ' &Gruppierung...
.Add Type:=msoControlButton, ID:=3160, Before:=12 ' Gruppierung &aufheben.
End With
End Sub
Sub Symbolleiste_löschen()
Application.CommandBars("Neue_Leiste").Delete ' löscht die Symbolleiste wieder
End Sub
----------------------------------------------------------------------------------------------
Wäre toll, wenn ihr mir helfen könntet
Gruss
Max Berg