Office Object Library
14.02.2005 15:54:10
Tom
Sub AC_Menue_Einfuegen()
Dim Menue As CommandBar
Dim ZuMenue As CommandBarControl
Dim Menuebefehl As CommandBarControl
Dim i, Anz As Integer
Anz = Application.CommandBars(1).Controls.Count
For i = 1 To Anz
If Application.CommandBars(1). _
Controls(i).Caption = "xyz" Then Exit Sub
Next i
Set Menue = CommandBars.ActiveMenuBar
Set ZuMenue = Menue.Controls.Add(Type:=msoControlPopup, Temporary:=False, before:=Anz)
ZuMenue.Caption = "xyz"
Das Problem scheint die MS Office Library zu sein; mit 11.0 läuft's, nicht aber mit 10.0. Konkret produziert VBA bei den Dim-Anweisungen einen Kompilierungs-Fehler. Ersetze ich z. B. 'As CommandBar' durch 'As Object', so verkraftet es die späteren msoControl-Konstanten nicht mehr.
Wie mache ich den Code unabhängig von der jeweiligen Office Library; oder mindesens für 10.0 und 11.0 tauglich? Vielen Dank.
Tom