Vba shapes.addpicture给出1004错误

我有一个相当简单的潜艇，但它似乎不起作用：

Sub Test()
Dim p as object
strpath = "http://www.someurl.com/sample.jpg" ' some jpg
Set p = ActiveSheet.Shapes.AddPicture(strpath, False, False, 100, 100, 86, 129)
End Sub

当我这样做时，它会给我运行时错误1004，指定的值超出范围。但是，如果我将第二个“false”更改为“true”，它将正常工作并插入图片。根据第二个判断，true/false影响图片是否与文档一起保存。我不希望这种情况发生

有人知道为什么会这样吗？

这对我很有用：

Sub sof20301212ShapesAddpicture()
  Dim strPath
  Dim p As Object
  strpath = "http://www.google.com/images/srpr/logo11w.png"
  Set p = ActiveSheet.Shapes.AddPicture(strPath, msoCTrue, msoTrue, 100, 100, 86, 129)
End Sub

参考：

LinkToFile和SaveWithDocument不能同时为false，因为无处保存图像

LinkToFile和SaveWithDocument对可以是：

 true, true
 true, false
 false, true

---

我只想补充另一个可能的原因和解决办法。我还得到了错误1004，指定值超出范围

我启用了对象库和所有这些东西。最后我意识到在我的代码前面有一行代码锁定了工作表。解锁后，一切正常

 true, true
 true, false
 false, true