VBA插入当前路径下格式为png和jpg的图片到指定单元格

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

Sub InsertImagesToCell()
    Dim filePath As String
    Dim fileExtension As String
    Dim folderPath As String
    Dim fileName As String
    Dim cellRange As Range
    Dim cell As Range
    
    ' 设置当前路径
    folderPath = ThisWorkbook.Path & "\"
    
    ' 设置要插入图片的单元格范围
    Set cellRange = Sheet1.Range("A1:A10")
    
    ' 遍历单元格范围
    For Each cell In cellRange
        ' 获取单元格中的文件名
        fileName = cell.Value
        
        ' 检查文件名是否为空
        If fileName <> "" Then
            ' 获取文件扩展名
            fileExtension = Right(fileName, Len(fileName) - InStrRev(fileName, "."))
            
            ' 检查文件扩展名是否为png或jpg
            If fileExtension = "png" Or fileExtension = "jpg" Then
                ' 构建完整的文件路径
                filePath = folderPath & fileName
                
                ' 插入图片到单元格中
                With cell
                    .Parent.Pictures.Insert(filePath).Select
                    With Selection
                        .ShapeRange.LockAspectRatio = msoFalse
                        .ShapeRange.Width = .ShapeRange.Width / 2
                        .ShapeRange.Height = .ShapeRange.Height / 2
                    End With
                End With
            End If
        End If
    Next cell
End Sub

请注意，上述代码假设要插入图片的单元格范围为Sheet1工作表上的A1到A10单元格。您可以根据需要调整单元格范围。

此外，上述代码还将插入的图片进行了缩小处理，您可以根据需要调整缩放比例