| |
こんにちは。かみちゃん です。
> 単純にWebサイトのグラフ画像を貼り付けたいだけです。
> 貼り付け方として、過去に取得した画像データは残したまま、新たに実行した際
> に、前回の画像と重ならないように、右方向に隙間なく貼り付けていきたかった
> だけです。
やはりそうでしたか。
> ちなみに貼り付けている画像は下記のYahooファイナンスの為替ﾁｬｰﾄです。
であれば、私もほぼ同じようなことを以下のコードでしています。
参考にしてみてください。
Sub Sample()
Dim strPicURL As String
Dim pic As Object
Dim dblLeft As Double
'下のxxxxは、掲示板投稿時禁止文字列ですので、「ｈｔｔｐ」（全角にしていますが半角で）にしてください。
strPicURL = "xxxx://tchart.yahoo.co.jp/c/1y/cur/usdjpy=x.gif"
With ActiveSheet
dblLeft = 0
For Each pic In .Pictures
If Not Intersect(Range(pic.TopLeftCell, pic.BottomRightCell), .Rows(1)) Is Nothing Then
If dblLeft = 0 Then dblLeft = pic.Left
dblLeft = dblLeft + pic.Width
End If
Next
With .Pictures.Insert(strPicURL)
.Top = 0
.Left = dblLeft
End With
End With
End Sub
|
|
かみちゃん
- 07/7/15(日) 9:36 -
