Excel VBA -在工作表中插入批量图像

Sub InsertImages()
    Dim imagePath As String
    Dim imageCell As Range
    Dim imageShape As Shape
    
    ' 设置图像文件夹路径
    imagePath = "C:\Images\"
    
    ' 设置图像起始单元格
    Set imageCell = ThisWorkbook.Worksheets("Sheet1").Range("A1")
    
    ' 循环遍历图像文件夹中的所有图像文件
    imageFile = Dir(imagePath & "*.jpg")
    Do While imageFile <> ""
        ' 在工作表中插入图像
        Set imageShape = ThisWorkbook.Worksheets("Sheet1").Pictures.Insert(imagePath & imageFile)
        
        ' 调整图像位置和大小
        With imageShape
            .Left = imageCell.Left
            .Top = imageCell.Top
            .Width = imageCell.Width
            .Height = imageCell.Height
        End With
        
        ' 移动到下一个单元格
        Set imageCell = imageCell.Offset(1, 0)
        
        ' 获取下一个图像文件
        imageFile = Dir
    Loop
End Sub