將圖像添加到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屬性來指定左側和頂部值是如何被解釋。