FaceId bei Untermenue möglich?
02.12.2007 21:33:00
Sonnenpeter
ich habe mir einen zusätzlichen Menuepunkt erstellt.
Geht auch ganz gut.
'Untermenuepunkt1
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlPopup)
With Mb
.Caption = "Alle Tabellenblätter"
.BeginGroup = True
End With
Nun hätte ich gerne
'Untermenuepunkt1
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlPopup)
With Mb
.Caption = "Alle Tabellenblätter"
.BeginGroup = True
'eingefügt
.FaceId = 225
End With
Geht aber nicht............
Ist ein Icon bei Untermenues generell nicht möglich?
So geht es wiederum ohne Probleme
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "Tabellenblatt schützen"
.Style = msoButtonIconAndCaption
.OnAction = "BlattschutzEin"
.FaceId = 225
.BeginGroup = True
End With
Gruß Sonnenpeter