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

質問

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

回答No.1

KenKen_SP · ベストアンサー

こんな感じ。

投稿するとコード中の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

お礼

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