View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
mjclare[_6_] mjclare[_6_] is offline
external usenet poster
 
Posts: 1
Default Help with VBA programing

CyberStorm,

Here is a VBA code snip that will put the images from the web into you
sheet. Note that instead of using the main web page that yo
specified, I right-clicked on each of the graphs and got the URL of th
individual gif file. This page looks like it has images whose name
probably don't change over time so this solution should work. If b
some chance the CNN people (actually bigcharts.com) change the addres
of the gif files you will have to re-think this solution.

'*** Begin code

Dim MyURL
Range("A1").Select
MyURL
"http://chart.bigcharts.com/custom/cnnmoney-com/markets/cnnmoney-5year-price.gifquote"
ActiveSheet.Pictures.Insert MyURL
Range("D1").Select
MyURL
"http://chart.bigcharts.com/custom/cnnmoney-com/markets/cnnmoney-10year-yield.gifquote"
ActiveSheet.Pictures.Insert MyURL
Range("G1").Select
MyURL
"http://chart.bigcharts.com/custom/cnnmoney-com/markets/cnnmoney-10year-price.gifquote"
ActiveSheet.Pictures.Insert MyURL

'*** End code

BTW... these images are copyrighted.

Cheers.

mjclar

--
Message posted from http://www.ExcelForum.com