.将图片添加到 Word 文档:属性分配无效

Question

我正在尝试使用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文档，然后将图像插入文档中间......这就是为什么我需要设定它的位置。难道没有办法像.AddPicture承诺的那样，在一次操作中做到这一点吗？

Answer 1

Shapes.AddPicture文档中的 MSDN 示例将图片添加到画布项，而不是直接添加到形状集合。你试过吗？

描述也很清楚：

将图片添加到绘图画布。返回一个 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)