With CommandBars("xx")
Set b =3D .Controls.Add(Type:=3DmsoControlPopup,=20
before:=3D1)
End With
With b
.BeginGroup =3D True
.Caption =3D "xx"
'.Style =3D MsoIconAndCaption ' * Here is the *
'.Icon =3D xx ' * question *
End With
Set c =3D b.Controls.Add(Type:=3DmsoControlButton)
With c
.Caption =3D "xx"
.OnAction =3D "xx"
.Style =3D msoButtonIconAndCaption
.FaceId =3D xx
End With
Ca marche sauf que je voudrais ajouter une icone au=20
msoControlPopup, mais je ne connais pas la fa=E7on de faire.
Pour le msoControlButton c'est bon mais la syntaxe=20
utilis=E9e ne fonctionne pas avec le popup.
Quelqu'un connait-il la r=E9ponse ?
With CommandBars("xx") Set b = .Controls.Add(Type:=msoControlPopup, before:=1) End With With b .BeginGroup = True .Caption = "xx" '.Style = MsoIconAndCaption ' * Here is the * '.Icon = xx ' * question * End With
Set c = b.Controls.Add(Type:=msoControlButton) With c .Caption = "xx" .OnAction = "xx" .Style = msoButtonIconAndCaption .FaceId = xx End With
Ca marche sauf que je voudrais ajouter une icone au msoControlPopup, mais je ne connais pas la façon de faire. Pour le msoControlButton c'est bon mais la syntaxe utilisée ne fonctionne pas avec le popup. Quelqu'un connait-il la réponse ?
With CommandBars("xx")
Set b = .Controls.Add(Type:=msoControlPopup,
before:=1)
End With
With b
.BeginGroup = True
.Caption = "xx"
'.Style = MsoIconAndCaption ' * Here is the *
'.Icon = xx ' * question *
End With
Set c = b.Controls.Add(Type:=msoControlButton)
With c
.Caption = "xx"
.OnAction = "xx"
.Style = msoButtonIconAndCaption
.FaceId = xx
End With
Ca marche sauf que je voudrais ajouter une icone au
msoControlPopup, mais je ne connais pas la façon de faire.
Pour le msoControlButton c'est bon mais la syntaxe
utilisée ne fonctionne pas avec le popup.
Quelqu'un connait-il la réponse ?
With CommandBars("xx") Set b = .Controls.Add(Type:=msoControlPopup, before:=1) End With With b .BeginGroup = True .Caption = "xx" '.Style = MsoIconAndCaption ' * Here is the * '.Icon = xx ' * question * End With
Set c = b.Controls.Add(Type:=msoControlButton) With c .Caption = "xx" .OnAction = "xx" .Style = msoButtonIconAndCaption .FaceId = xx End With
Ca marche sauf que je voudrais ajouter une icone au msoControlPopup, mais je ne connais pas la façon de faire. Pour le msoControlButton c'est bon mais la syntaxe utilisée ne fonctionne pas avec le popup. Quelqu'un connait-il la réponse ?
