VBA判断当前路径下格式为png和jpg的图片并插入到指定工作表单元格

下面是一个VBA代码示例，可以判断当前路径下的所有png和jpg格式的图片，并将它们插入到指定工作表的单元格中。

Sub InsertImages()
    Dim basePath As String
    Dim file As String
    Dim extension As String
    Dim imageIndex As Integer
    Dim targetSheet As Worksheet
    Dim targetCell As Range
    
    ' 设置基础路径为当前路径
    basePath = ThisWorkbook.Path & "\"
    
    ' 设置目标工作表和单元格
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    Set targetCell = targetSheet.Range("A1")
    
    ' 初始化图片索引
    imageIndex = 1
    
    ' 遍历当前路径下的所有文件
    file = Dir(basePath)
    Do While file <> ""
        ' 获取文件扩展名
        extension = LCase$(Right$(file, Len(file) - InStrRev(file, ".")))
        
        ' 判断文件是否为png或jpg格式
        If extension = "png" Or extension = "jpg" Then
            ' 插入图片到指定单元格
            targetSheet.Pictures.Insert(basePath & file).Select
            With Selection
                .ShapeRange.LockAspectRatio = msoFalse
                .ShapeRange.Height = targetCell.Height
                .ShapeRange.Width = targetCell.Width
                .ShapeRange.Top = targetCell.Top
                .ShapeRange.Left = targetCell.Left
            End With
            
            ' 移动到下一个单元格
            Set targetCell = targetCell.Offset(0, 1)
            
            ' 增加图片索引
            imageIndex = imageIndex + 1
        End If
        
        ' 获取下一个文件
        file = Dir
    Loop
End Sub

将上述代码复制到VBA编辑器中的一个新模块中，然后运行InsertImages子过程，它将会在指定工作表的单元格中插入所有png和jpg格式的图片。请确保将Sheet1更改为您要插入图片的工作表名称，并且指定的单元格足够大以容纳图像