insertion dans une cellule

[Titi2004]

Bonjour, j'ai un problème, je souhaiterai savoir s'il était possible d'inserer une image (un drapo de 13pxl * 7pxl). Le chemin de l'image serait une url.

merci

 

[Pascal76]

Salut

Va voir ce fil : http://www.excel-downloads.com/html/French/forum/messages/1_61945_61752.htm

et donc la super démo de Laurent

Pascal

 

[Titi2004]

Merci Pascal;

je viens de regarder, c'est du joli boulot cette demo; malheureusement je suis complètement à la rue dans tout ce qui concerne le vba.

J'ai regarder le code, mais rien que la base (recopier) ca me met une erreur de compilation :///

 

[michel]

bonsoir Pascal et Titi

est ce que la procedure ci dessous serait suffisante ?

Sub InsereImage()
ActiveSheet.Pictures.Insert("http://www.excel-downloads.com/images/titres/logoED.gif").Select
End Sub

bonne soirée
michel

 

[Titi2004]

Désolé michel de ne pas avoir répondu plus tôt je n'avais plus accès au net.

Ta methode est niquel et simple à utiliser. Me reste à savoir comment je peux center verticalement l'image dans la colonne.

Merci beaucoup, c'est deja un bon début.

 

[michel]

bonjour Titi

je ne sais pas si cela pourra t'aider , mais l'exemple ci dessous insere l'image dans la plage A1:B4 .

Sub InsereImage()
Dim Emplacement As Range
Dim image As Picture

Set Emplacement = Range("A1:B4") ' adapter selon emplacement souhaité
Emplacement.Select
Set image = ActiveSheet.Pictures.Insert("http://www.excel-downloads.com/images/titres/logoED.gif")
With image.ShapeRange
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
End Sub

bonne journée
michel