Excel宏报错：无法插入图片类属性，新工作簿可用旧工作簿失效

我碰到过好几次这种情况——新工作簿跑的好好的，放到旧工作簿就报错，咱们一步步来排查：

可能的原因&解决方案 #

1. 目标工作表被保护了 #

如果你的已有工作簿里的工作表设置了保护，插入图片的操作会被直接拦截，导致img对象无法创建。你可以先临时解除保护，插入完成后再恢复：

Sub Insert_Image()
    Dim ws As Worksheet
    Set ws = ActiveSheet '或者指定具体工作表，比如ThisWorkbook.Worksheets("你的工作表名")
    
    ' 检查并解除保护（无密码就去掉Password参数）
    If ws.ProtectContents Then
        ws.Unprotect Password:="你的保护密码"
    End If
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"
        If .Show = -1 Then
            Dim img As Object
            Set img = ws.Pictures.Insert(.SelectedItems(1))
            img.Left = 50
            img.Top = 150
            img.Width = 150
            img.Height = 150
        End If
    End With
    
    ' 重新保护工作表（按需添加密码）
    If Not ws.ProtectContents Then
        ws.Protect Password:="你的保护密码"
    End If
End Sub

2. Pictures.Insert的兼容性问题 #

Pictures.Insert在复杂工作簿环境下（比如有大量形状、自定义宏或特殊设置）容易返回空对象，换成Shapes.AddPicture会稳定很多——这个方法参数更明确，对各种场景的兼容性更好：

Sub Insert_Image_Stable()
    Dim ws As Worksheet
    Set ws = ActiveSheet '或者指定具体工作表
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"
        If .Show = -1 Then
            Dim imgShape As Shape
            ' 参数说明：文件路径、是否链接到文件、是否随文档保存、左、上、宽、高
            Set imgShape = ws.Shapes.AddPicture(.SelectedItems(1), msoFalse, msoTrue, 50, 150, 150, 150)
        End If
    End With
End Sub

3. 别依赖ActiveSheet #

旧工作簿里可能有多个工作表，甚至是图表工作表，ActiveSheet不一定是你要操作的普通工作表。直接指定具体工作表对象，能避免这种意外：

' 把Set ws = ActiveSheet改成：
Set ws = ThisWorkbook.Worksheets("Sheet1") '替换成你要插入图片的工作表名称

4. 检查图片路径的特殊字符 #

如果选中的图片路径包含空格、中文或特殊符号，Pictures.Insert可能处理失败，用上面的Shapes.AddPicture方法也能解决这个问题，它对特殊路径的兼容性更好。

总结 #

优先试试Shapes.AddPicture的版本，这个方法比Pictures.Insert更可靠；同时检查工作表是否被保护，避免依赖ActiveSheet。这几个点基本能解决大部分旧工作簿插入图片失败的问题。

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