Yahoo Chart Into Excel

[sal21]

..... dubt on this code
but why the macro not paste the chart intothe sheet???????

Sub Tester()
Dim ie As New InternetExplorer
sURL = "http://finance.yahoo.com/"
ie.navigate sURL
Do While ie.readyState <> READYSTATE_COMPLETE
Loop
ie.Visible = True
Base01 = "http://ichart.yahoo.com/z?s="
Base02 = "AAA"
LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
sURL = Base01 & Cells(i, 1) & Base02
GetImage sURL, ie
Stop
Next i
ie.Quit
Set ie = Nothing
End Sub
Sub GetImage(sURL, ie)
ie.navigate sURL
Do While ie.readyState <> READYSTATE_COMPLETE
Loop
End Sub

 

[michelxld]

Hello Sal21

you could try this macro to insert a web chart into the Sheet

ActiveSheet.Pictures.Insert("http://ichart.finance.yahoo.com/b?s=^IXIC").Select


regards ,
miche