vba - .将图片添加到Word文档: Invalid Property Assignment

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 似乎所 promise 的那样？

Answer 1

Shapes.AddPicture documentation 中的 MSDN 示例正在将图片添加到 Canvas 项，而不是直接添加到形状集合。你尝试过吗？

描述也很清楚:

Adds a picture to a drawing canvas. Returns a Shape object that represents the picture and adds it to the CanvasShapes collection.

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)