Excel宏需求：为烘焙配方模板实现合并单元格图片插入居中

针对你制作烘焙配方模板时的图片插入需求，这里对现有VBA代码做了优化，解决合并单元格内图片居中、避免变形的问题：

修改后的代码 #

Sub InsertPhotoMacro()
    Dim photoNameAndPath As Variant
    Dim photo As Picture
    Dim targetRange As Range
    
    ' 指定目标合并单元格范围（根据你的模板调整）
    Set targetRange = ActiveSheet.Range("E23:F29")
    
    ' 打开图片专属文件选择器
    photoNameAndPath = Application.GetOpenFilename( _
        FileFilter:="图片文件 (*.jpg;*.png;*.bmp), *.jpg;*.png;*.bmp", _
        Title:="选择要插入的配方图片")
    
    ' 用户取消选择则直接退出
    If photoNameAndPath = False Then Exit Sub
    
    ' 插入选中的图片
    Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
    
    With photo
        ' 锁定图片宽高比，防止拉伸变形
        .LockAspectRatio = msoTrue
        
        ' 自动适配单元格尺寸：根据宽高比判断优先适配宽度还是高度
        If .Width / .Height > targetRange.Width / targetRange.Height Then
            .Width = targetRange.Width
        Else
            .Height = targetRange.Height
        End If
        
        ' 计算并设置居中位置（水平+垂直）
        .Left = targetRange.Left + (targetRange.Width - .Width) / 2
        .Top = targetRange.Top + (targetRange.Height - .Height) / 2
        
        ' 设置图片随单元格移动和调整大小
        .Placement = xlMoveAndSize
    End With
End Sub

关键优化点 #

• 明确合并单元格范围：直接指定目标合并单元格，避免原代码中拆分取坐标的混乱
• 过滤图片格式：文件选择器只显示常见图片格式，减少选择错误
• 保持图片比例：开启宽高比锁定，防止图片被拉伸变形影响配方展示效果
• 自动居中适配：通过计算让图片在合并单元格内水平、垂直居中，无需手动调整
• 联动单元格调整：设置图片随单元格移动和大小调整，后续修改模板布局时图片自动跟进

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