Excel如何批量插入图片

原创

已于 2024-07-30 23:14:37 修改 · 1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#excel

于 2024-07-30 23:07:24 首次发布

1.首先打开Excel；

2.按快捷键“Alt”+"F11"启动宏，点击插入，选择模块,输入以下代码：

Sub InsertPictureObjectsAsIcons()
    Dim ws As Worksheet
    Dim PicPath As String
    Dim PicName As String
    Dim i As Integer, j As Integer
    Dim PicIndex As Integer
    Dim rng As Range
    Dim oleObj As Object

    ' 修改为你的工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 修改为你的图片文件夹路径
    PicPath = "C:\Users\FQ\Desktop\1\"
    
    ' 初始化图片索引
    PicIndex = 1
    
    ' 遍历指定范围内的单元格
    For i = 10 To 11
        For j = 3 To 17
            ' 构建图片名称
            PicName = PicPath & PicIndex & ".jpg" ' 假设图片名为 1.jpg, 2.jpg, ...
            
            ' 检查图片是否存在
            If Dir(PicName) <> "" Then
                ' 获取当前单元格
                Set rng = ws.Cells(i, j)