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

 

[thowas]

Re : ActiveSheet.Pictures.Insert sur Excel 2007

J'ai essaye avec Addpicture mais:
http://support.microsoft.com/kb/928983/fr

 

[MichelXld]

Re : ActiveSheet.Pictures.Insert sur Excel 2007

bonsoir

en reprenant l'idée de l'aide Microsoft

Pour contourner ce problème, codez la macro VBA pour insérer l'image comme une image de remplissage dans une forme telles qu'un rectangle.

Dim strImage As String
Dim Sh As Shape
Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, _
    40, 80, 140, 50)
strImage = ""
Sh.Fill.UserPicture strImage

Bonne soirée
MichelXld

 

[thowas]

Re : ActiveSheet.Pictures.Insert sur Excel 2007

Merci beaucoup !