Discussion :

[Gnuf !]

Bonjour à tous,
Pour afficher un FaceID dans un CommandButton placé dans un Userform j'ai utilisé le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set cBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:=False, temporary:=True)
 
    Set Cmb = cBar.Controls.Add(Type:=msoControlButton, temporary:=True)
    Cmb.FaceId = 4
    CommandButton1.Picture = Cmb.Picture
    Set Cmb = Nothing

Et pendant un temps, tout se passa bien.

Sauf que depuis 2 semaines environ les FaceID apparaissent en tout petit en haut à gauche des contrôles (j'ai également essayé d’insérer le Cmb.picture dans une image avec le même résultat).
La propriété .PicturePosition n'a pas l'air d'être prise en compte non plus (réglée sur 12 - fmPicturePositionCenter dans l'exemple ci-dessous).

Avez-vous une idée de ce qu'il se passe ?




Merci pour vos réponses.