Mit dem unten stehenden Code möchte ich mir eine eigene Symbolleiste erstellen.
Geht auch bei SPEICHERN,DRUCKEN,SEITENANSICHT.
Nun möchte auch noch SUCHEN "schwarze Fernglas" und einen blauen Pfeil nach oben und einen
nach unten haben. Ich habe schon bis .ToolbarButtons.Add 250 alle durch, aber nix gefunden.
Was mache ich falsch? Außer das Ostersonntag ist?
Frohe Ostern Reinhardt.
With Toolbars("ReiniSymbolleiste")
.Position = xlTop 'Symbolleiste oben links anzeigen
.Visible = True
.ToolbarButtons.Add 2
.ToolbarButtons.Add 3
.ToolbarButtons.Add 231 '231 Kennnummer für leeres Button
.ToolbarButtons.Add 4
.ToolbarButtons.Add 22
.ToolbarButtons.Add 19
.ToolbarButtons.Add 231
End With
With Toolbars("ReiniSymbolleiste").ToolbarButtons(1)
.Name = "Speichern"
.OnAction = "MakroMappeSpeichern"
End With