Question

当它在一个新的（空的）工作簿上时，这个宏工作得很好但是当我尝试将它添加到现有的工作簿时，它会抛出标题错误。

当我打破并悬停时，它显示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

Answer 1

想出来，工作表无法受到保护。

取消保护，摆弄任何东西，保护。

按预期工作。

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

1 个答案: