Bonjour à tous,
Pour afficher un FaceID dans un CommandButton placé dans un Userform j'ai utilisé le code :
Et pendant un temps, tout se passa bien.
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
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.
Partager