Schaltfläche in Menu Bar löschen?
30.07.2004 09:26:05
Marcl
ich habe beim "rumspielen" einen bösen Fehler gemacht.
Ich wollte in die Standard Menüfläche einige Schaltflächen zusetzen.
Allerdings habe ich mit dem Code:
Set CB = CommandBars.Item("Worksheet Menu Bar")
Set CBP = CB.Controls.Add(Type:=msoControlPopup, temporary:=False)
With CBP
.Caption = "Information und Controlling"
End With
Set CBP1 = CBP.Controls.Add(Type:=msoControlPopup, temporary:=False)
With CBP1
.Caption = "Neue Mappen anlegen"
End With
Set CBP2 = CB.Controls.Add(Type:=msoControlPopup, temporary:=False)
With CBP2
.Caption = "Daten Sortieren"
End With
leider die Menülsiete genommen und eine soo dumme Schleife dazu, dass ich jetzt die Symbole 3 Mal drauf habe.
Meine Frage dazu:
wie bekomme ich die jetzt 9 Schaltflächen mit VBA wieder gelöscht?
Vielen Dank schon mal
Gruß
Marcl