OVH Cloud OVH Cloud

Assigner un FaceId à un CommandButton

6 réponses
Avatar
René Delcourt
Rebonjour,
Est-il possible d'assigner un FaceId à un bouton de commande d'un userform?
Si oui, comment?
--
René Delcourt

6 réponses

Avatar
michdenis
Bonjour René,

C'est possible ...


sub Bouton()

Dim B As CommandBarButton
'tu identifies le bouton de commande dont tu veux copier l'image(faceid)
Set B = Application.CommandBars("Standard").Controls(1)
B.CopyFace 'copy dans le presse papier le faceid du bouton retenue
Range("A1").Select 'récupère dans A1, l'image du presse papier
ActiveSheet.Paste

End sub

Et pour terminer, tu sélectionnes l'image que tu viens de coller dans A1, l'envoie dans le presse-papier et en mode création, tu
sélectionne ton bouton, et tu colles directement le contenu du presse papier dans la fenêtre des propriétés du boutons : sur la
ligne Picture

Tu peux toujours passer par l'intermédiaire d'un logiciel de dessin pour modifier l'image ou sa taille, l'enregistrer comme fichier
et l'insérer dans le bouton de commande !


Salutations!





"René Delcourt" a écrit dans le message de news:
Rebonjour,
Est-il possible d'assigner un FaceId à un bouton de commande d'un userform?
Si oui, comment?
--
René Delcourt
Avatar
jps
heu....j'ai pas tout suivi, denis, mais pourquoi ne pas aller directement
dans le Picture des Propriétés du CommandButton, sachant que rené ne veut
peut-être pas changer d'image comme de chemise....?
jps

"michdenis" a écrit dans le message de
news:OIPeWR%
Bonjour René,

C'est possible ...


sub Bouton()

Dim B As CommandBarButton
'tu identifies le bouton de commande dont tu veux copier l'image(faceid)
Set B = Application.CommandBars("Standard").Controls(1)
B.CopyFace 'copy dans le presse papier le faceid du bouton retenue
Range("A1").Select 'récupère dans A1, l'image du presse papier
ActiveSheet.Paste

End sub

Et pour terminer, tu sélectionnes l'image que tu viens de coller dans A1,
l'envoie dans le presse-papier et en mode création, tu

sélectionne ton bouton, et tu colles directement le contenu du presse
papier dans la fenêtre des propriétés du boutons : sur la

ligne Picture

Tu peux toujours passer par l'intermédiaire d'un logiciel de dessin pour
modifier l'image ou sa taille, l'enregistrer comme fichier

et l'insérer dans le bouton de commande !


Salutations!





"René Delcourt" a écrit dans le message de news:


Rebonjour,
Est-il possible d'assigner un FaceId à un bouton de commande d'un
userform?

Si oui, comment?
--
René Delcourt




Avatar
René Delcourt
Merci pour ta réponse mais il s'agit d'un commandbutton d'un UserForm
--
René Delcourt



Bonjour René,

C'est possible ...


sub Bouton()

Dim B As CommandBarButton
'tu identifies le bouton de commande dont tu veux copier l'image(faceid)
Set B = Application.CommandBars("Standard").Controls(1)
B.CopyFace 'copy dans le presse papier le faceid du bouton retenue
Range("A1").Select 'récupère dans A1, l'image du presse papier
ActiveSheet.Paste

End sub

Et pour terminer, tu sélectionnes l'image que tu viens de coller dans A1, l'envoie dans le presse-papier et en mode création, tu
sélectionne ton bouton, et tu colles directement le contenu du presse papier dans la fenêtre des propriétés du boutons : sur la
ligne Picture

Tu peux toujours passer par l'intermédiaire d'un logiciel de dessin pour modifier l'image ou sa taille, l'enregistrer comme fichier
et l'insérer dans le bouton de commande !


Salutations!





"René Delcourt" a écrit dans le message de news:
Rebonjour,
Est-il possible d'assigner un FaceId à un bouton de commande d'un userform?
Si oui, comment?
--
René Delcourt





Avatar
René Delcourt
Sorry
Je n'avais pas vu le bas du message...
Merci de ta coopération
--
René Delcourt



Bonjour René,

C'est possible ...


sub Bouton()

Dim B As CommandBarButton
'tu identifies le bouton de commande dont tu veux copier l'image(faceid)
Set B = Application.CommandBars("Standard").Controls(1)
B.CopyFace 'copy dans le presse papier le faceid du bouton retenue
Range("A1").Select 'récupère dans A1, l'image du presse papier
ActiveSheet.Paste

End sub

Et pour terminer, tu sélectionnes l'image que tu viens de coller dans A1, l'envoie dans le presse-papier et en mode création, tu
sélectionne ton bouton, et tu colles directement le contenu du presse papier dans la fenêtre des propriétés du boutons : sur la
ligne Picture

Tu peux toujours passer par l'intermédiaire d'un logiciel de dessin pour modifier l'image ou sa taille, l'enregistrer comme fichier
et l'insérer dans le bouton de commande !


Salutations!





"René Delcourt" a écrit dans le message de news:
Rebonjour,
Est-il possible d'assigner un FaceId à un bouton de commande d'un userform?
Si oui, comment?
--
René Delcourt





Avatar
michdenis
Bonjour JPS,

Bien vu, après l'exécution de ces lignes de code :

Dim B As CommandBarButton
'tu identifies le bouton de commande dont tu veux copier l'image(faceid)
Set B = Application.CommandBars("Standard").Controls(1)
B.CopyFace 'copy dans le presse papier le faceid du bouton retenue

tu peux sélectionner la propriété picture du bouton de commande et utiliser le raccourci clavier Ctrl + V pour copier l'image du
presse-papier ..


Salutations!
Avatar
jps
heu....un véritable hasard...
jps

"michdenis" a écrit dans le message de news:
ea6jNy$
Bonjour JPS,

Bien vu, après l'exécution de ces lignes de code :

Dim B As CommandBarButton
'tu identifies le bouton de commande dont tu veux copier
l'image(faceid)
Set B = Application.CommandBars("Standard").Controls(1)
B.CopyFace 'copy dans le presse papier le faceid du bouton retenue

tu peux sélectionner la propriété picture du bouton de commande et
utiliser le raccourci clavier Ctrl + V pour copier l'image du
presse-papier ..


Salutations!