エクセルマクロでヤフー株価チャート画像の取込方法

エクセルマクロで指定した銘柄コードのヤフー株価チャート画像をエクセルシート上に取込みたい（貼り付けていきたい）のですが、どうすればいいのでしょうか？

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2007/04/10 08:21

こんな感じ。

投稿するとコード中のURLの前に余計な半角SP、後ろに？記号なんかが
くっついて化けます。適当に直してください。

' // ex) ネット上の画像を挿入し、C5セルに位置合わせする
Sub SampleProc()

　　Dim Pic As Picture
　　
　　Set Pic = ActiveSheet.Pictures.Insert("http://tchart.yahoo.co.jp/c/1y/4/4689.t.gif")
　　With Pic
　　　　.Top = Range("C5").Top
　　　　.Left = Range("C5").Left
　　End With
　　Set Pic = Nothing
　　
End Sub

この回答へのお礼

どうもありがとうございます！
チャート画像のアドレスを指定するのでしたか。
よくわかりました。

お礼日時：2007/04/12 02:01