excel - 插入与文档一起保存的形状（需要对象错误）

Question

我对下面的代码有疑问。我以前使用插入图片方法运行，但图片没有与文档一起保存。请忽略大小调整组件，因为当我让代码正常工作时，我将不得不调整它。

object required 错误发生在标有 ** 的代码行中。

我对 VBA 很陌生，所以请用最简单的术语解释一下。

If Not Intersect(Target, Range("IMG_FILE_ALL")) Is Nothing And Target.Value <> "" Then
    Dim pic As String
        pic = Target.Offset(0, 0).Value

    Dim myPicture As Shape

      **Set myPicture = ActiveSheet.Shapes.AddPicture(Filename:="C:\Users\wallacew\Pictures\Ex4.jpg", linktofile:=msoFalse, savewithdocument:=msoCTrue, Left:=rgTarget.Left, Top:=rgTarget.Top, Width:=-1, Height:=-1)**

    Dim rng As Range
        Set rng = Range(Target.Offset(0, 0), Target.Offset(12, 1))

    With myPicture
        .ShapeRange.LockAspectRatio = msoTrue
        .Width = 333
        .Top = rng.Top + 3
        .Left = rng.Left + 3
    End With
End If

标签： excelvba