macro ou bouton pour inserer une image

[violaine]

bonjour,
je cherche a inserer une image dans ma feuille excel je sais comment faire avec une macro mais je voulais savoir si c etait possible d'inserer une image a partir d'un commandbutton si oui kel est le code

merci d'avance

 

[Philippe]

Bonsoir violaine,

pour insérer une image:

sub inserer_image ()
Range('G11').Select
ActiveSheet.Pictures.Insert( _
'C:\\Documents and Settings\\VIOLAINE\\Mes documents\\Mes images\\image à insérer'). Select
End Sub


Bien sûr, il faut adapter 'C:\\Documents..... etc' à la configuration de ton système, c'est tout simplement l'adresse de ton image...

pour insérer à partir du commandbutton tu mets ton code en 'commandbutton(son N°)_quandclick'

A+
Philippe

 

[Philippe]

ReBonsoir violaine,

Je sais pas pourquoi, il y a des '\\' qui ont sauté, alors:

pour insérer une image:

sub inserer_image ()
Range('G11').Select
ActiveSheet.Pictures.Insert( _
'Cocuments and Settings\\VIOLAINE\\Mes documents\\Mes images\\image à insérer'). Select
End Sub


Bien sûr, il faut adapter \\'Cocuments..... etc\\' à la configuration de ton système, c'est tout
simplement l\\'adresse de ton image...

pour insérer à partir du commandbutton tu mets ton code en 'commandbutton(son N°)_quandclick'

PS range ('G11') c'est juste un exemple...

A+
Philippe

 

[Philippe]

Bon, bah visiblement les 'antislash' ne passent pas... tu trouveras où les mettre

A+
Philippe

 

[violaine]

merci pour votre aide