Word文档的.Addpicture :无效的属性分配
Word文档的.Addpicture :无效的属性分配
提问于 2017-04-04 22:25:35
我正在尝试使用MS-Access中的VBA将图片添加到MS-Word文档。它确实可以工作，但是当我尝试设置位置时，我得到了一个运行时错误。
下面是可以工作的代码行。
objShapes.AddPicture FileName:=strCompleteImagePath, LinkToFile:=False根据MSDN，.AddPicture的语法为
expression .AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)我试过了：
objShapes.AddPicture strCompleteImagePath, True, True, 100, 100 , 70 , 70和
objShapes.AddPicture FileName:=strCompleteImagePath, _
LinkToFile:=False, _
SaveWithDocument:=False, _
Left:=100, _
Top:=100, _
Width:=70, _
Height:=70但是我得到的错误信息是“错误的扩充数或无效的属性分配”。
是不是有什么是我看不见的？这是因为MS-Access吗？
我从MS-Access数据库中选择图形文件的路径，打开MS-Word文档，并将图像插入到文档...that的中间，这就是我需要设置其位置的原因。就像.AddPicture承诺的那样，难道没有一种方法可以在一次操作中做到这一点吗？
回答 1
Stack Overflow用户
发布于 2017-04-04 23:25:30
Shapes.AddPicture documentation中的MSDN示例将图片添加到画布项，而不是直接添加到shapes集合。你试过了吗？
描述也很清楚：
将图片添加到绘图画布。返回表示图片的Shape对象并将其添加到CanvasShapes集合。
Dim canvas As Shape
Set canvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=100, Width:=70, Height:=70)
Dim pic As Shape
Set pic = canvas.CanvasItems.AddPicture(FileName:=path, LinkToFile:=False, SaveWithDocument:=True)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43210034
复制相关文章
相似问题
腾讯云开发者
