我已经广泛地查找了Shapes.AddPicture方法的示例，似乎下面的代码应该可以工作：
Sub TestAddPicture()
Call ActiveSheet.Shapes.AddPicture( _
"C:\Full\Path\To\BarsBoxes.png", _
False, True, 1, 1, -1, -1)
End Sub这会产生一个运行时错误1004。如果我删除Call，它将无法编译。我尝试用msoFalse和msoTrue替换False和True，但这并不能解决问题。我还尝试用0和1替换False和True，但同样无效。
感谢您对错误可能存在的位置的建议。我正在使用Excel 2013桌面应用程序。
附注：
将AddPictures的结果赋给变量时也会发生同样的错误：
Sub TestAddPicture()
Dim s As Shape
Set s = ActiveSheet.Shapes.AddPicture( _
"C:\Full\Path\To\BarsBoxes.png", _
False, True, 1, 1, -1, -1)
End Sub
1条答案
按热度按时间uqdfh47h1#
至少在本例中，问题是工作簿的显示选项：
上述设置被设置为“Nothing”。将其更改为“All”似乎启用了插入图片。
有趣的是，我最近把我的头撞到了这个上面，并发布了解决方案here。