ActiveSheet.Pictures.Insert sur Excel 2007

[thowas]

Bonjour,
J'ai récemment fait la migration de Excel 2003 à la version 2007.
Mais je n'arrive pas à récupérer des images sur une page web.

Sub Intraday()
ActiveSheet.Shapes("intraday").Delete
ActiveSheet.Pictures.Insert("http://fr.ichart.yahoo.com/b?s=MSFT").Name = "intraday"

Merci beaucoup pour votre aide

 

[Guest]

Re : ActiveSheet.Pictures.Insert sur Excel 2007

bonjour,

sur XLD il y a un lien spécial sur Excel 2007:

 

[MichelXld]

Re : ActiveSheet.Pictures.Insert sur Excel 2007

bonsoir


Utilise la méthode AddPicture

Sub AjoutImageFeuille_V03()
    Dim Shp As Shape
    Dim Fichier As String
    
    Fichier = "[URL]https://www.excel-downloads.com/images/stories/lfdls.jpg[/URL]"
    Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 0, 0, 150, 70)
End Sub

Bonne soirée
MichelXld

 

[thowas]

Re : ActiveSheet.Pictures.Insert sur Excel 2007

Merci, mais j'ai un erreur 1004 , fichier introuvable

 

[MichelXld]

Re : ActiveSheet.Pictures.Insert sur Excel 2007

bonsoir

j'ai proposé une autre solution ici:
https://www.excel-downloads.com/threads/activesheet-pictures-insert-sur-excel-2007.91962/



Bonne soirée
MichelXld