FM beim Erstellen einer Symbolleiste
11.10.2007 14:00:18
Specke
ich möchte eine Symbolleiste mit 3 Buttons erstellen. Folgender Code (für einen Button)
Private Sub test()
Dim MyBar As CommandBar
Dim MyButton1 As CommandBarButton
Set MyBar = Application.CommandBars.Add("WE-Aktionen", msoBarTop, False, False)
With MyBar
.Visible = True
Set MyButton1 = .Controls.Add(Type:=msoControlButton, ID:=680, Before:=1)
MyButton1.Caption = "Neue Aktion"
MyButton1.Style = msoButtonIconAndCaption
End With
End Sub
bringt Automatisierungsfehler/Unbekannter Fehler in Zeile 7.
Was mache ich falsch?
Danke und Gruß
Specke