AW: CommandBars im Excel2007
25.11.2008 16:38:04
M
Doch noch ne Frage...
Ich habe eben in o.g. Artikel gelesen. Da ist als Bemerkung geschrieben:
Wichtig:
Wenn Sie die Datei auch in älteren Officeversionen nutzen möchten oder müssen, dann sollten Sie _
auf RibbonX verzichten und dafür benutzerdefinierte Symbolleisten über VBA programmieren.
Ich habe das eben noch mal mit den Symbolleisten versucht. Das hat aber nicht hingehauen...
Hier mein Code:
Dim ObjCmBr as Object
Dim CmBr as CommandBar
Set CmBr = Application.CommandBars.Add("Meine", Position:=msoBarTop, Temporary:= True)
With CmBr
. Left=0
.Visible = true
End With
Set ObjCmBr = Application.CommandBars("Meine").Controls.Add(Type:=msoControlButton)
With ObjCmBr
.Style = msoButtonIconAndCaption
.FaceId =361
.Caption = " Beschreibung"
.OnAction = "MeineSub"
end with
Das ging unter 2000 noch. Was muss ich ändern das der Code auch unter 2007 funktioniert...?