vba 批量插入图片

VBA（Visual Basic for Applications）是Microsoft Office应用程序中用于自动化任务的一种宏语言，对于批量插入图片到Excel工作表、Word文档或其他支持的对象中，你可以编写一段简单的VBA脚本。以下是创建一个基本的批量插入图片的步骤：

1. **打开VBA编辑器**：在Excel中按Alt + F11，或者在文件菜单中选择“开发者”->“Visual Basic”。

2. **创建新模块**：在工程资源管理器窗口中右击，选择“插入”->“模块”，这将为你提供编写代码的空间。

3. **编写插入图片的VBA代码**：

Sub BatchInsertImages()
    Dim ws As Worksheet ' 工作表对象
    Dim picPath As String ' 图片路径数组
    Dim i As Long
    
    ' 设置图片路径数组，这里假设路径存储在一个列表或变量里
    picPath = Array("C:\Folder\image1.jpg", "C:\Folder\image2.jpg", ...) ' 根据实际路径替换
    
    ' 选择要插入图片的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为实际工作表名
    
    ' 遍历图片路径并插入
    For i = LBound(picPath) To UBound(picPath)
        With ws
            .Shapes.AddPicture picPath(i), msoFalse, msoFalse, 0, 0 ' 参数：图片位置，是否浮于文字之上，X和Y坐标
        End With
    Next i
End Sub

4. **运行宏**：点击工具栏上的"运行"按钮（绿色三角形），或者F5键，执行`BatchInsertImages`宏。