Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34803 / 76734

←次へ　｜　前へ→


	【47136】Re:Web ページ上のグラフの取得

Kein - 07/3/2(金) 0:50 -


	引用なし

	パスワード

そのページにある6個のチャートを、縦に並べて挿入するなら

Sub MyPic_INS()
　 Dim i As Long, j As Long
　 Dim Lp As Single, Tp As Single
　 Dim Wp As Single, Hp As Single
　 Dim CdAry As Variant, NmAry As Variant
　 Const URLTop As String = _
　 "ｈｔｔｐ://211.9.244.17/sw/mei/13/images/d"
　
　 CdAry = Array(1301, 1331, 1332, 1334, 1377, 1379)
　 NmAry = Array("極洋", "ニチロ", "日水", "マルハ本社", _
　 "サカタタネ", "ホクト")
　 Application.ScreenUpdating = False: j = 1
　 Range("A:A").ClearContents
　 With Range("B1:F13")
　　　Lp = .Left: Wp = .Width: Hp = .Height
　 End With
　 With ActiveSheet.Pictures
　　　If .Count > 0 Then .Delete
　　　For i = 0 To UBound(CdAry)
　　　　 Cells(j, 1).Value = NmAry(i)
　　　　 With .Insert(URLTop & CdAry(i) & "_t.gif")
　　　　　　.Left = Lp: .Top = Rows(j).Top
　　　　　　.Width = Wp: .Height = Hp
　　　　 End With
　　　　 j = j + 14
　　　Next i
　 End With
　 Columns("A:A").AutoFit
　 Application.ScreenUpdating = True
End Sub

空白シートを開いて実行してみて下さい。
定数 URLTop の先頭4文字は半角に変換して下さい。

2 hits

▼

【47067】Web ページ上のグラフの取得 さくら 07/2/28(水) 1:16