Hallo
Application.CommandBars("Formatting").Controls _
.Add Type:=msoControlButton, ID:=282, Before:=1
Der obige Code generiert eine benutzerdefinierte Schaltfläche in der Symbolleiste "Format" an erster Stelle. Ich habe ihn mit dem Makrorecorder aufgezeichnet. Wie kann ich dieser Schaltfläche nun eine Bezeichnung z.B. "Buchung" sowie einen Makro zuweisen? Mit dem Makrorecorder funktionierts leider nicht. Der verheimlicht mir immer die entscheidenden Schritte!
Kann mir da jemand helfen.
Vielen Dank.
Judith
Hallo,
Option Explicit
Sub MachEt()
Dim ctrBut As CommandBarControl
Set ctrBut = Application.CommandBars("Formatting").Controls _
.Add(Type:=msoControlButton, ID:=282, Before:=1)
With ctrBut
.Style = msoButtonIconAndCaption
.Caption = "Judith"
.OnAction = "Test"
End With
Set ctrBut = Nothing
End Sub
Sub Test()
MsgBox "Test"
End Sub
Hallo Michael
Funktioniert prima!!! Da wäre ich nie drauf gekommen.
Herzlichen Dank für Deine Mühe.
Gruss Judith
Das Archiv des Excel-Forums
