VBAのコードを教えてください

試行錯誤して色々と試してみましたが、初心者のため苦戦しております。
詳しい方、コードのご教授お願いします。
A列にあるファイル名から、他のフォルダ内より該当する画像ファイルを検索し、その画像をO列に画像のみを表示させたいのです。

1. A列にファイル名が入力されています。
2. ファイル名には拡張子.pngが含まれていません。
3. ファイルは特定のフォルダ内のみ探します。 「C:Users¥★★★¥Desktop¥画像」内のみです。
4. ファイルが見つかったら、画像そのものをO列に表示させたい

他に必要な情報があればよろしくお願いします。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2023/11/04 23:21

こんばんは

不明点は勝手に解釈した参考例です。
参考例ですので、後はお好きなように変更してください。

Sub Q13644592()
Dim pic, rng As Range
Dim i As Long, spec As String

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Cells(i, 1)
spec = "C:Users¥★★★¥Desktop¥画像\" & rng.Text & ".png"
If Dir(spec) <> "" Then
Set pic = ActiveSheet.Shapes.AddPicture(fileName:=spec, _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=0, Top:=0, Width:=-1, Height:=-1)
pic.LockAspectRatio = True
Set rng = rng.Offset(, 14)
pic.Width = rng.Width
If pic.Height > rng.Height Then pic.Height = rng.Height
pic.Top = rng.Top + (rng.Height - pic.Height) / 2
pic.Left = rng.Left + (rng.Width - pic.Width) / 2
End If
Next i
End Sub

No.1 回答者： taglet 回答日時： 2023/11/04 22:54

試行錯誤して色々と試したソースを開示したら、詳しい人が回答してくれるかもしれません。