"shockley" <shoc...@frontiernet.net> wrote in message news:J5Oha.1003$vY5...@news02.roc.ny.frontiernet.net...
>try Tools | Options | Objects and select Show All. <
This is how my program is set up.
>It is a picture rather than a Chart. Is that what you are expecting ?<
Yes, it's a picture (of a chart) that I'm after. Would you mind checking
which cell the picture is in on your worksheet? You may have to select all
cells and Edit | Clear | Formats. I doubt this will tell me anything, but I
just want to be sure I'm not missing it by some kinda trick...
Thanks again,
Larry
"Trevor Shuttleworth" <Tre...@shucks.demon.co.uk> wrote in message
news:uf92st79...@TK2MSFTNGP11.phx.gbl...
"The interactive charting feature of BigCharts requires the use of frames.
Your browser does not appear to support frames. You will be limited to the
QuickChart interface. If you upgrade to a more recent browser you will be
able to use this feature."
So, apparently, xl97 is using an old version of IE...
Larry
"Trevor Shuttleworth" <Tre...@shucks.demon.co.uk> wrote in message
news:uf92st79...@TK2MSFTNGP11.phx.gbl...
here's a non-excel method to get pics from the web:
Sub tester()
FindImages
"http://finance.yahoo.com/q?s=MSFT&d=c&k=c1&a=v&p=s&t=5d&l=off&z=l&q=b"
End Sub
Sub FindImages(sURL As String)
Dim oDoc As New MSHTML.HTMLDocument
Dim IE As New InternetExplorer
Dim i As Integer
IE.navigate sURL
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
Set oDoc = IE.Document
For i = 1 To oDoc.images.Length
If oDoc.images(i - 1).src Like "http://ichart.yahoo.com/*" Then
saveImg oDoc.images(i - 1).src, ThisWorkbook.Path & "\temp.png"
End If
Next i
Set oDoc = Nothing
Set IE = Nothing
End Sub
Sub saveImg(sURL As String, sPath As String)
Dim oXHTTP As New MSXML2.XMLHTTP
Dim oStream As New ADODB.Stream
Dim oFSO As New Scripting.FileSystemObject
oXHTTP.Open "GET", sURL, False
oXHTTP.send
oStream.Type = adTypeBinary
oStream.Open
oStream.Write oXHTTP.responseBody
oStream.SaveToFile sPath, adSaveCreateOverWrite
oStream.Close
Set oXHTTP = Nothing
Set oStream = Nothing
Set oFSO = Nothing
End Sub
You'll need to add references to msxml, ado and IE. Will work for
non-framed sites, but could possibly be modified for framed sites also.
Tim.
"shockley" <shoc...@frontiernet.net> wrote in message
news:u46ia.63$lx1...@news02.roc.ny.frontiernet.net...