Comment affecter des images à des boutons

Résolu
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 - 1 nov. 2012 à 12:45
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 - 2 nov. 2012 à 12:36
Bonjour,

J'ai trouvé sur le net une méthode que j'ai essayé de modifier pour affecter une image à un bouton de commande Excel en VBA:
For i = 1 To 30
Set ctrl = ActiveSheet.OLEObjects("CommandButton" & i)

ctrl.Object.Picture = Range("A" & i).Value

CB1.Picture = LoadPicture("C:\image1.bmp")
ou
CB1.Picture = loadPicture("Sheets(classe).
Range("A1")")
Next

J'ai 30 boutons à affecter, je voudrais savoir comment je peux faire car cela ne fonctionne pas.

Quelqu'un peut-il m'aider SVP? Merci

5 réponses

Utilisateur anonyme
1 nov. 2012 à 17:16
Bonjour,

Tu étais pas loin
For i = 1 To 30
  Set ctrl = ActiveSheet.OLEObjects("CommandButton" & i)
  ctrl.Object.Picture = LoadPicture(Range("A" & i).Value)
Next


_____________
Kenji
3
Utilisateur anonyme
2 nov. 2012 à 10:41
Tu peux faire comme tu veux :

ctrl.Object.Picture = LoadPicture("C:\image1.bmp")


_____________
Kenji
3
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021
2 nov. 2012 à 10:16
Bonjour et encore merci Charles Racaud!
0
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021
2 nov. 2012 à 10:39
J'ai cependant encore une interrogation SVP:
Faut-il que l'image soit dans la colonne "A" ou puis-je y mettre le chemin d'accès à cette image ?

Merci à vous.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021
2 nov. 2012 à 12:36
Super merci ! ça marche super bien.

Même si ça met du temps pour charger je suis très satisfait.

Merci.
0
Rejoignez-nous