PNGをアクティブシートに挿入するマクロについて

質問

Excelマクロブックと同じフォルダ内にある複数のPNGファイル（画像）を、
このマクロブックのアクティブシートに一括で挿入する（場所はどこでも大丈夫です）マクロの書き方を教えて欲しいです。

質問が分かりづらかったら申し訳ありません。
どなたかご教授いただければ幸いです。

回答No.4

SI299792

これだけでは困ります。
・どこでも構わないというのでA1 A2 A3と下に貼っていきます。
他に必要な情報
・直接磔か（png 無くても表示される。他へコピペする時便利、リンク磔か（png が無いと画像が表示されない、メモリーを食わない）［直接磔］
・画像をセルのサイズに合わせるのか［合わせる]
・その時縦横比はどうするのか［変更する]
取りあえず［］の条件で作りました。
（画像は小さく、歪になります）

これらの条件を補足していただければ、変更します。
Option Explicit
'
Sub Macro1()
　　Dim FileName As String
　　Dim Target As Range
'
　　FileName = Dir(ThisWorkbook.Path & "\" & "*.png")
'
　　If FileName = "" Then
　　　　MsgBox "png ファイルがありません", vbCritical
　　End If
　　ActiveSheet.Pictures.Delete
　　Application.ScreenUpdating = False
　　Set Target = [A1]
'
　　Do While FileName > ""
'
　　　　With ActiveSheet.Shapes.AddPicture( _
　　　　　　ThisWorkbook.Path & "\" & FileName, False, True, _
　　　　　　Target.Left, Target.Top, Target.Width, Target.Height)
　　　　End With
　　　　Set Target = Target.Offset(1)
　　　　FileName = Dir
　　Loop
　　MsgBox "終了しました"
End Sub

補足

ご回答いただき誠にありがとうございます。
記載いただいたコード、大変勉強になりました。

こちらの説明に不足な部分が多々あり、申し訳ありません。

以下に、不足していた説明と、追加で実装を希望する部分を記載いたします。

・貼り付ける場所は、画像1枚目はセル B53、2枚目はB92・・・と、画像が増えるたびにB53から+39で下に貼っていきたいです。（分かり辛い説明で申し訳ありません）

・画像は直接貼り付け

・セルのサイズに合わせない

・画像を読み込む際の縦横比は、可能であれば525×399（ピクセル）に変更（縮小）したい（読み込む対象の画像の大きさは全て同じで、640×480ピクセルです）

以上です。
補足が必要な部分がありましたら、お手数ですがお教えいただけますと幸いです。よろしくお願いいたします。