创建宏以删除形状时出现运行时错误“1004”

Question

我所做的是创建一个宏，如果存在图像Range("D199:U205"，则删除特定单元格范围内的任何图像，然后在工作表底部复制一个名为“JB Sig”的图像，并将其粘贴到工作表中现在的空白位置。

我在使用宏时收到“运行时错误'1004'：应用程序定义或对象定义错误”。当这个错误发生并且我调试时，导致问题的行是If Not Intersect(Range("D199:U205"), Range(Pic.TopLeftCell, Pic.BottomRightCell)) Is Nothing Then Pic.Delete

我已经在网上给出的示例中以多种方式重写了这个，但错误仍然给我带来了问题。奇怪的是，有时我得到错误，有时我没有，甚至 VBA 代码中的最小外观变化可以修复它（暂时）。所以目前宏在我的电脑上运行良好。但是，正在访问同一文件（在不同办公室）的我的同事仍然遇到运行时错误。

我对代码非常缺乏经验，我编写的任何 VBA 通常都是从某个地方复制和粘贴的，而不是让我了解自己在做什么。所以请耐心等待我的愚蠢。谢谢

我已经尝试通过删除我必须查看它的密码来解除对 VBAProject 的保护。这没有用。我尝试将用于删除图像的代码更改为在线各种不同的建议，但有时我仍然遇到相同的错误。似乎有许多不同的方法可以让代码工作，但它们都容易受到运行时错误的影响。

Sub Approval_JB()
'
' Approval_JB Macro
'

'
    Dim ws As Worksheet
    Set ws = Sheets("Issue Letters")
    ws.Unprotect Password:="john123"
    Dim Pic As Object
    For Each Pic In ws.Shapes
    Dim R As Range
    Debug.Print Pic.Name
    Debug.Print Pic.TopLeftCell.Address
    Debug.Print Pic.BottomRightCell.Address
    Set R = Range(Pic.TopLeftCell, Pic.BottomRightCell)
    If Not Intersect(Range("D199:U205"), R) Is Nothing Then Pic.Delete
    Next Pic
    Range("D199:U205").ClearContents
    ws.Shapes.Range(Array("JB Sig")).Select
    Selection.Copy
    ws.Range("D201").Select
    With ws.Range("D199")
    .Value = "Yours Faithfully"
    End With
    With ws.Range("D204")
    .Value = "Joe Bloggs"
    End With
    With ws.Range("D205")
    .Value = "Engineer"
    End With
    Range("B192").Select
    ws.Protect Password:="john123"
End Sub

它有时会起作用，如上所述。但是其他时候，当我运行宏时，会出现此错误。

运行时错误“1004”：应用程序定义或对象定义错误

Answer 1

只有错误 1004 并不意味着某些特定错误，但我的猜测是在这种情况下出现错误是因为 Range(Pic.TopLeftCell, Pic.BottomRightCell)。

试试这个：Range(Pic.TopLeftCell.Address & ":" & Pic.BottomRightCell.Address)