Excelマクロ紹介！画像を一括貼り付けするマクロを解説！

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 = 20
    '画像の高さ
    setHeight = 450
    '画像の幅
    setWidth = 640
    '画像の間隔
    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