マクロでセルに入れたファイル名の画像を隣のセルに読み込みたい

マクロ初心者です。
やりたいことはA列にファイル名があればB列にその画像をファイルから読み取り挿入したいです。
1行だけの設定は何とかできたのですが・・

初心者過ぎてなにがおかしいのか全く分かりません。
このコードも検索して拾ってきたものを一部変更しただけのものです。



Sub テスト()

With ActiveSheet.Pictures.Insert("C:\image\" & Range("A1") & ".jpg")
.Left = Range("B1").Left
.Top = Range("B1").Top '
With .ShapeRange
.LockAspectRatio = msoTrue
If .Width * Range("B1").Height / .Height < Range("B1").Width Then
.Height = Range("B1").Height
Else
.Width = Range("B1").Width
End If
End With
End With


End Sub

No.1 回答者： fujillin 回答日時： 2020/12/21 14:50

こんにちは

＞1行だけの設定は何とかできたのですが・・
A列の各行に対して同じことを行いたければ、各行でループさせれば良いです。

その際には、現状のコードで、A1、B1等の固定セル指定になっているものを、n行目のA列、B列のセルといった指定に変更しておく必要があります。
（固定セルのままだと、まったく同じことを繰り返してしまいます）

例えば、n行目のA列のセルなら、
　Cells(n, 1)
あるいは
　Range("A" & n）
といった塩梅です。

その上で、変数nを1～20までなどとループさせれば、1行目から20行目までに対して同様の処理が繰り返されることになります。