指定した位置のWord文書に画像を追加する

Question

私のタスクは、文書の指定された位置に外部アプリケーションからの場所画像です。たとえば、リッチテキストコンテンツコントロールがあり、このイメージコントロールにコンテンツが表示されている必要があります。これはコードの例です：

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プロパティを設定することができます。