VBA批量插入图片异常求助：图片无法正常显示

原代码的核心问题在于未做空值校验和缺乏文件存在性验证，导致无效路径触发图片加载错误。以下是修复后的代码：

Sub Insert_Multiple_Images()
    Dim Image_Names As Range
    Dim Cell_Reference As Range
    Dim ImagePath As String
    Dim i As Integer
    Dim ImageLocation As String
    
    Set Image_Names = Range("D2:D68")
    ImageLocation = "D:\Image\" ' 末尾加斜杠，避免拼接时出错
    ImageFormat = ".jpg"
    
    Set Cell_Reference = Range("A2:A68")
    
    For i = 1 To Image_Names.Rows.Count
        ' 跳过空单元格
        If Trim(Image_Names.Cells(i).Value) = "" Then GoTo NextIteration
        
        ' 拼接完整图片路径
        ImagePath = ImageLocation & Image_Names.Cells(i).Value & ImageFormat
        
        ' 检查文件是否存在
        If Dir(ImagePath) = "" Then
            ' 可选：在对应单元格右侧标记错误
            Cell_Reference.Cells(i).Offset(0, 1).Value = "图片不存在"
            GoTo NextIteration
        End If
        
        ' 插入图片并设置格式，捕获意外错误
        On Error Resume Next
        Set Image = ActiveSheet.Pictures.Insert(ImagePath)
        If Err.Number = 0 Then
            Image.Top = Cell_Reference.Cells(i).Top
            Image.Left = Cell_Reference.Cells(i).Left
            Image.ShapeRange.Height = 45
            Image.ShapeRange.Width = 90
        Else
            Cell_Reference.Cells(i).Offset(0, 1).Value = "加载失败"
            Err.Clear
        End If
        On Error GoTo 0
        
NextIteration:
    Next i
End Sub

关键修复点： #

• 空值过滤：通过Trim(Image_Names.Cells(i).Value) = ""判断空单元格，直接跳过处理，避免生成无效路径
• 路径安全拼接：给图片路径末尾加上斜杠\，并用&替代+拼接字符串（VBA中+可能引发类型不匹配问题，&是更安全的字符串拼接符）
• 文件存在验证：用Dir(ImagePath)检查文件是否存在，从根源避免加载不存在的图片
• 错误捕获：通过On Error Resume Next处理意外错误，同时在对应单元格右侧标记错误状态，方便后续排查

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