ActiveSheet.Pictures.Insert sur Excel 2007

thowas · 3 Mars 2008

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 · 3 Mars 2008

Re : ActiveSheet.Pictures.Insert sur Excel 2007

bonjour,

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

MichelXld · 3 Mars 2008

Re : ActiveSheet.Pictures.Insert sur Excel 2007

bonsoir

Utilise la méthode AddPicture

Code:

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 · 3 Mars 2008

Re : ActiveSheet.Pictures.Insert sur Excel 2007

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

MichelXld · 4 Mars 2008

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

ActiveSheet.Pictures.Insert sur Excel 2007

thowas

XLDnaute Nouveau

Guest

Guest

MichelXld

XLDnaute Barbatruc

thowas

XLDnaute Nouveau

MichelXld

XLDnaute Barbatruc

Discussions similaires