Excel VBA 質問スレ Part81

[1 デフォルトの名無しさん 2024/04/18(木) 14:03:38.03 ID:cMr18rZu]

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

関連スレ
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/

※前スレ
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
Excel VBA 質問スレ Part80
https://mevius.5ch.net/test/read.cgi/tech/1685489018/

[548 デフォルトの名無しさん 2024/10/06(日) 23:24:40.36 ID:KFHvzP2C]

>>546
HTMLにはいくつも画像があると思うけど？

[549 デフォルトの名無しさん 2024/10/07(月) 00:25:16.29 ID:zYX/1qdW]

>>546
セルA1に画像のURLが書かれているとき、その画像をセルB1に表示するVBAコードは
Url = Cells(1, 1)
Cells(1, 2).InsertPictureInCell (Url)

あとは Cells の第1引数を i 等に変えて、Url = "" が何回か連続するまでDo～Loop等で回せばいい

が、VBAを使うまでもなく、IMAGE関数を使うほうが楽
B1セルに
=IMAGE(A1)
と書いて、セルの右下隅にカーソルを合わせ、黒い「＋」が出たらダブルクリック

[550 デフォルトの名無しさん 2024/10/07(月) 00:39:41.14 ID:zYX/1qdW]

自レス
>>549はやっぱうまく動かんかも
Select使う形に変更
Cells(i, 2).Select
Selection.InsertPictureInCell (Cells(i, 1))

[551 デフォルトの名無しさん 2024/10/07(月) 07:28:10.74 ID:WKTA2FMr]

>>548
何言ってんだURIは一意だろ