Symbol im Menü
12.09.2003 11:51:52
Silvia
ich würde gern bei meiner eigenen Menüleiste innerhalb eines Popups ein Symbol vor einen Popup-Menüpunkt setzen.
Ich hätte gedacht ich kann dies mit ".faceId =" machen, aber es funkt nicht.
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
'----------------- MY COMMAND BAR --------------------
Set oBar = Application.CommandBars.Add( _
name:="MyCommandBar", _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)
'----------------- MENÜ 1 ------------
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Bitte starten Sie hier"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "eine neue XBRL-Datei laden"
.Style = msoButtonCaption
.OnAction = "TEST1"
.FaceId = 71
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "für eine geladene XBRL-Datei Kennzahlen auswählen"
.Style = msoButtonCaption
.OnAction = "TEST2"
.FaceId = 72
End With
Vielleicht kann mir jemand sagen, was ich falsch gemacht habe.
lg, Silvia