Schrift-Button
Karsten
ich habe mir folgenden Code gebastelt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.CommandBars.Add(Name:="Rosaschrift").Visible = True
Application.CommandBars("Rosaschrift").Controls.Add Type:=msoControlSplitButtonPopup, ID:=401, _
Before:=1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.CommandBars("Rosaschrift").Delete
End Sub
Wie bekomme ich es hin, dass die Schaltfläche gleich rosa anzeigt?Wenn ich Excel schließe, öffnet es sich immer wieder mit den alten Einstellungen.
Danke für eure Hilfe.
Gruß
Karsten