基于单元格值动态插入图片的VBA优化：空单元格不插入并实现自动化

一、解决空单元格插入占位图问题 #

原代码会无视D列单元格是否为空直接执行插入，导致空单元格出现"无法显示链接的图像"占位图。我们可以给代码添加非空判断，同时加入旧图片清理逻辑避免重复插入：

Sub Insert_Multiple_Images()
    Dim Image_Names As Range, Cell_Reference As Range
    Dim Image_Location As String, Image_Format As String
    Dim i As Integer, j As Integer
    Dim img As Picture
    
    ' 定义目标区域与图片路径参数
    Set Image_Names = Range("D11:D19")
    Image_Location = "C:\Image"
    Image_Format = ".png"
    Set Cell_Reference = Range("I11:I19")
    
    ' 先清空目标区域内的旧图片，避免多次运行宏导致图片叠加
    For Each img In ActiveSheet.Pictures
        If Not Intersect(img.TopLeftCell, Cell_Reference) Is Nothing Then
            img.Delete
        End If
    Next img
    
    ' 遍历单元格，仅非空时执行图片插入
    For i = 1 To Image_Names.Rows.Count
        For j = 1 To Image_Names.Columns.Count
            ' 判断D列对应单元格是否为非空值
            If Trim(Image_Names.Cells(i, j).Value) <> "" Then
                On Error Resume Next ' 图片不存在时跳过错误，避免宏中断
                Set img = ActiveSheet.Pictures.Insert(Image_Location & "\" & Image_Names.Cells(i, j).Value & Image_Format)
                On Error GoTo 0
                
                ' 调整图片位置与尺寸
                If Not img Is Nothing Then
                    img.Top = Cell_Reference.Cells(i, j).Top
                    img.Left = Cell_Reference.Cells(i, j).Left
                    img.ShapeRange.Height = 45
                    img.ShapeRange.Width = 75
                    Set img = Nothing
                End If
            End If
        Next j
    Next i
End Sub

核心优化点：

• 增加空值判断逻辑，D列单元格为空时直接跳过插入步骤
• 加入旧图片清理流程，避免多次运行宏导致图片重复叠加
• 添加错误捕获，当指定路径下的图片不存在时，宏不会报错中断

二、实现宏自动运行 #

结合D列的数据验证设置，我们可以利用工作表Change事件，当D11:D19范围内的单元格内容发生变化时，自动触发图片插入宏：

1. 右键点击当前工作表的标签（如「Sheet1」），选择「查看代码」
2. 在弹出的VBA编辑器窗口中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查修改的单元格是否在D11:D19范围内
    If Not Intersect(Target, Range("D11:D19")) Is Nothing Then
        ' 自动触发图片插入宏
        Insert_Multiple_Images
    End If
End Sub

设置完成后，当你在D11:D19单元格修改内容（包括通过数据验证选择选项）时，宏会自动执行，同步更新I列的图片内容。

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