VBA代码：自动插入当前路径下PNG和JPG图片到Excel表格

下面是一个VBA代码示例，可以判断当前路径下的所有png和jpg格式的图片，并将它们插入到指定工作表的单元格中。\n\nvba\nSub InsertImages()\n Dim basePath As String\n Dim file As String\n Dim extension As String\n Dim imageIndex As Integer\n Dim targetSheet As Worksheet\n Dim targetCell As Range\n \n ' 设置基础路径为当前路径\n basePath = ThisWorkbook.Path & "\"\n \n ' 设置目标工作表和单元格\n Set targetSheet = ThisWorkbook.Worksheets("Sheet1")\n Set targetCell = targetSheet.Range("A1")\n \n ' 初始化图片索引\n imageIndex = 1\n \n ' 遍历当前路径下的所有文件\n file = Dir(basePath)\n Do While file <> ""\n ' 获取文件扩展名\n extension = LCase$(Right$(file, Len(file) - InStrRev(file, ".")))\n \n ' 判断文件是否为png或jpg格式\n If extension = "png" Or extension = "jpg" Then\n ' 插入图片到指定单元格\n targetSheet.Pictures.Insert(basePath & file).Select\n With Selection\n .ShapeRange.LockAspectRatio = msoFalse\n .ShapeRange.Height = targetCell.Height\n .ShapeRange.Width = targetCell.Width\n .ShapeRange.Top = targetCell.Top\n .ShapeRange.Left = targetCell.Left\n End With\n \n ' 移动到下一个单元格\n Set targetCell = targetCell.Offset(0, 1)\n \n ' 增加图片索引\n imageIndex = imageIndex + 1\n End If\n \n ' 获取下一个文件\n file = Dir\n Loop\nEnd Sub\n\n\n将上述代码复制到VBA编辑器中的一个新模块中，然后运行InsertImages子过程，它将会在指定工作表的单元格中插入所有png和jpg格式的图片。请确保将Sheet1更改为您要插入图片的工作表名称，并且指定的单元格足够大以容纳图像。