ich habe einen vba-code gefunden, der mir einen menü eintrag mit
untermenüs und einem symbol erstellt.
Private Sub bOpen()
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("Dateiliste").Delete
On Error GoTo 0
Set objPopUp = .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls.Count, _
temporary:=True)
End With
objPopUp.Caption = "Dateiliste"
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "Datei A"
.OnAction = "DateiA"
.FaceId = 17
.Style = msoButtonCaption
End With
end sub
nun habe ich allerdings das "problem", das excel mir das symbol
nicht anzeigt, da excel immer auf "Nur Text (immer)" steht und
ich über anpassen-> rechte maustaste diesen menüeintrag auf
"schaltflächensymbol und text" umstellen muss, damit ich das
symbol angezeigt bekomme.
kann ich nicht irgendwie in diesem vba code einen befehl unterbringen
der den untermenüeintrag "datei a" auf "symbol und text" stellt?
NoxX