画像を名前順（No.1、No.2･･･)に貼り付けたい

投稿者 : 無印     投稿日時 : 2024/06/26(Wed) 13:49:35     OS : Windows 10     EXCEL : Excel 2019

---

画像を名前順に（例：No,1.No.2･･･）貼り付けたいのですが下記だとバラバラに貼り付いてしまいます。
どうしたらいいでしょうか。

Sub 画像貼り付け()
Dim lngTop As Long
Dim objFile As Object
Dim objFldr As FileSystemObject
    Set objFldr = CreateObject("Scripting.FileSystemObject")
    'フォルダパスを入力
    flderPath = Application.InputBox("画像貼り付け", "画像フォルダを入力", Type:=2)
    'キャンセルを押すとマクロ終了
    If flderPath = "False" Then Exit Sub
    '貼り付け開始位置
    setTop = 46
    '画像の高さ
    setHeight = 190.2
    '画像の幅
    setWidth = 253.7
    '画像の間隔
    span = setTop + setHeight
    '画像貼り付け処理
    For Each objFile In objFldr.GetFolder(flderPath).Files
        ActiveSheet.Shapes.AddPicture _
                Filename:=objFile, _
                LinkToFile:=False, _
                SaveWithDocument:=True, _
                Left:=20, _
                Top:=setTop, _
                Width:=setWidth, _
                Height:=setHeight
        '次の画像の貼り付け位置を設定
        setTop = setTop + span
    Next
End Sub

投稿者 : さんこう     投稿日時 : 2024/06/26(Wed) 14:48:54

---

＞画像を名前順に（例：No,1.No.2･･･）貼り付けたいのですが下記だとバラバラに貼り付いてしまいます。

すべてのファイル名を取得して、ソートしてから貼り付けたらよろしいかと思います。

参考になれば。

＜VBA FSO ファイル名 ソート＞
https://www.google.com/search?q=VBA+FSO+%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E5%90%8D+%E3%82%BD%E3%83%BC%E3%83%88

投稿者 : さんこう     投稿日時 : 2024/07/03(Wed) 18:06:20

---

いつも参考にならない投稿すいません。

投稿者 : さんこう     投稿日時 : 2024/07/04(Thu) 11:56:32

---

↑の投稿は、別のかたが勝手に書いたものです。