Question

我正在尝试使用MS-Access中的VBA将图片添加到MS-Word文档。它确实有效，但是当我尝试设置位置时，我得到一个运行时错误。

这是有效的代码行。

.AddPicture

根据MSDN，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

和

.AddPicture

但是我收到错误消息＆＃34;错误数量的增加或无效的属性分配＆＃34;

我有什么东西是盲目的吗？这是因为MS-Access吗？

我从MS-Access数据库中获取图形文件的路径，打开MS-Word文档，然后将图像插入文档的中间......这就是我需要设置的原因它的位置。有没有办法在一次操作中执行此操作，因为DelimitedClassBuilder似乎有希望？

Answer 1

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)

.Addpicture to Word Document：无效的属性赋值

1 个答案: