Question

我的任务是将外部应用程序的图像放在文档中的指定位置。例如 - 我有Rich Text内容控件，我的图像必须出现在此内容控件上。这是代码示例：

Dim cc As ContentControl
Set cc = ActiveDocument.ContentControls(1)
ActiveDocument.Shapes.AddPicture filename:=filename, LinkToFile:=False, SaveWithDocument:=True, Anchor:=cc.Range

位于相同高度的插入图像，但垂直位于左侧。根据文档，这种行为是正确的，但我需要将它设置在我的ContentControl对象上方。有可能吗？也许我可以用像素计算段落的长度，并在Left方法中设置Shapes.AddPicture参数？

Answer 1

AddPicture函数返回一个形状对象，您可以根据需要进行配置：

Dim cc As ContentControl
Dim shp As shape
Set cc = ActiveDocument.ContentControls(1)

Set shp = ActiveDocument.Shapes.AddPicture(filename:=filename, LinkToFile:=False, SaveWithDocument:=True, Anchor:=cc.Range)
shp.Left = 20
shp.Top = -100

您还可以设置形状对象的RelativeHorizontalPosition和RelativeVerticalPosition属性，以指定如何解释左侧和顶部值。

在指定位置将图像添加到Word文档

1 个答案: