In diesem Beispiel wird eine benutzerdefinierte Bearbeitungssymbolleiste erstellt, die Schaltflächen (Steuerelemente) zum Ausschneiden, Kopieren und Einfügen enthält.
Dim customBar As CommandBar Dim newButton As CommandBarButton Set customBar = CommandBars.Add("Custom") Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Cut").Id) Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Copy").Id) Set newButton = customBar.Controls _ .Add(msoControlButton, CommandBars("Edit") _ .Controls("Paste").Id) customBar.Visible = True