In diesem Beispiel wird auf oberer Ebene die Befehlsleiste "Custom" hinzugefügt. Außerdem wird der Befehlsleiste eine integrierte Schaltfläche zum Einfügen hinzugefügt.
Set mybar = CommandBars _ .Add(Name:="Custom", Position:=msoBarTop, _ Temporary:=True) With mybar .Controls.Add Type:=msoControlButton, Id:= _ CommandBars("Edit").Controls("Paste").ID .Visible = True End With