Excel 错误：无法插入图片类的属性

此宏在新（空）工作簿上时工作正常，但当我尝试将其添加到现有工作簿时，会抛出标题错误

当我中断并悬停时，它显示img为空，我不知道为什么

提前谢谢

  Sub Insert_Image()
    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 = ActiveSheet.Pictures.Insert(.SelectedItems(1))
        img.Left = 50
        img.Top = 150
        img.Width = 150
        img.Height = 150
    End If
    End With
  End Sub

---

如果解决了这个问题，工作表就无法得到保护

不保护，摆弄任何东西，保护

一切正常