VBA代码：将当前路径下的PNG和JPG图片插入Excel单元格

以下是一个示例VBA代码，可以将当前路径下的所有png和jpg格式的图片插入到指定单元格中。\n\nvba\nSub InsertImagesToCell()\n Dim filePath As String\n Dim fileExtension As String\n Dim folderPath As String\n Dim fileName As String\n Dim cellRange As Range\n Dim cell As Range\n \n ' 设置当前路径\n folderPath = ThisWorkbook.Path & "\"\n \n ' 设置要插入图片的单元格范围\n Set cellRange = Sheet1.Range("A1:A10")\n \n ' 遍历单元格范围\n For Each cell In cellRange\n ' 获取单元格中的文件名\n fileName = cell.Value\n \n ' 检查文件名是否为空\n If fileName <> "" Then\n ' 获取文件扩展名\n fileExtension = Right(fileName, Len(fileName) - InStrRev(fileName, "."))\n \n ' 检查文件扩展名是否为png或jpg\n If fileExtension = "png" Or fileExtension = "jpg" Then\n ' 构建完整的文件路径\n filePath = folderPath & fileName\n \n ' 插入图片到单元格中\n With cell\n .Parent.Pictures.Insert(filePath).Select\n With Selection\n .ShapeRange.LockAspectRatio = msoFalse\n .ShapeRange.Width = .ShapeRange.Width / 2\n .ShapeRange.Height = .ShapeRange.Height / 2\n End With\n End With\n End If\n End If\n Next cell\nEnd Sub\n\n\n请注意，上述代码假设要插入图片的单元格范围为Sheet1工作表上的A1到A10单元格。您可以根据需要调整单元格范围。\n\n此外，上述代码还将插入的图片进行了缩小处理，您可以根据需要调整缩放比例。