如何修改Excel宏实现批量插入多张照片并自动定位到对应单元格

修改后完整代码 #

Sub insertpictureinactivecell()
    Dim strFiles As Variant ' 存储多选的图片路径数组
    Dim i As Integer
    Dim baseRng As Range
    Dim insertRng As Range
    Dim Sh As Shape
    Dim colOffset As Long, rowOffset As Long ' 单个合并单元格占的列数、行数
    
    ' 可修改此处支持更多图片格式，示例为仅支持jpg
    Const cFile As String = "Image Files(*.jpg),*.jpg"
    ' 开启文件多选功能
    strFiles = Application.GetOpenFilename(fileFilter:=cFile, MultiSelect:=True)
    
    ' 未选择文件直接退出
    If IsArray(strFiles) = False Then Exit Sub
    
    ' 限制最多选择4张图片
    If UBound(strFiles) > 4 Then
        MsgBox "最多只能选择4张图片，请重新选择", vbExclamation
        Exit Sub
    End If
    
    ' 定位当前按钮对应2×2区域的左上基准合并单元格
    Set baseRng = ActiveCell.MergeArea
    ' 计算单个合并单元格的行列偏移量
    colOffset = baseRng.Columns.Count
    rowOffset = baseRng.Rows.Count
    
    ' 循环插入所有选中的图片
    For i = 1 To UBound(strFiles)
        ' 匹配对应位置的合并单元格
        Select Case i
            Case 1: Set insertRng = baseRng ' 第1张→左上位置
            Case 2: Set insertRng = baseRng.Offset(0, colOffset) ' 第2张→右上位置
            Case 3: Set insertRng = baseRng.Offset(rowOffset, 0) ' 第3张→左下位置
            Case 4: Set insertRng = baseRng.Offset(rowOffset, colOffset) ' 第4张→右下位置
        End Select
        
        ' 插入图片并适配单元格尺寸
        With insertRng
            Set Sh = ActiveSheet.Shapes.AddPicture( _
                Filename:=strFiles(i), _
                linktoFile:=msoFalse, _
                SaveWithDocument:=msoTrue, _
                Left:=.Left, _
                Top:=.Top, _
                Width:=.Width, _
                Height:=.Height _
            )
            Sh.LockAspectRatio = msoFalse ' 取消锁定宽高比，完全适配单元格
        End With
        Set Sh = Nothing
        Set insertRng = Nothing
    Next i
    
    Set baseRng = Nothing
    MsgBox "图片插入完成，共插入" & UBound(strFiles) & "张", vbInformation
End Sub

使用说明 #

• 直接替换你现有宏的全部代码即可，原有绑定宏的按钮不需要修改
• 点击按钮后弹出文件选择窗口，按住Ctrl可以多选图片，最多选4张
• 图片会按照你选择图片的顺序，依次填入左上、右上、左下、右下的四个合并单元格
• 图片会自动适配合并单元格的尺寸，不需要手动调整

自定义调整 #

• 如需支持png、bmp等其他格式，修改常量cFile的取值即可，示例：Const cFile As String = "Image Files(*.jpg;*.png),*.jpg;*.png"
• 如需修改图片对应插入位置，调整Select Case i代码块中对应的Offset偏移参数即可

内容的提问来源于stack exchange，提问作者pwalker