我正在尝试使用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
承诺的那样,难道没有一种方法可以在一次操作中做到这一点吗?
发布于 2017-04-04 15: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)
https://stackoverflow.com/questions/43210034
复制相似问题