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

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对象上方。可以做到吗？也许我可以计算像素的段落长度，并在Shapes.AddPicture方法中设置Left参数？

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属性来指定左侧和顶部值是如何被解释。