次の方法で共有

ShapeNodes.SetPosition メソッド (Publisher)

指定された節点の位置を設定します。 節点の編集タイプによっては、このメソッドが隣接する節点の位置に影響を与えることがあります。

構文

式。SetPosition (Index, X1, Y1)

表現ShapeNodes オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Index 必須 Integer 位置を設定する節点を指定します。 1 から指定した図形内のノードの数までの数値である必要があります。それ以外の場合は、エラーが発生します。
X1 必須 バリアント型 (Variant) ページの左上隅を基準にして、節点の水平方向の位置を指定します。
Y1 必須 バリアント型 (Variant) ページの左上隅を基準にして、節点の垂直方向の位置を指定します。

解説

X1 引数と Y1 引数の場合、数値はポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。

例

次の使用例は、作業中の文書の 3 つ目の図形の 2 つ目の節点を、200 ポイント右、300 ポイント下に移動します。 図形はフリーフォームである必要があります。

Dim arrPoints As Variant 
Dim intX As Integer 
Dim intY As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 arrPoints = .Item(2).Points 
 intX = arrPoints(1, 1) 
 intY = arrPoints(1, 2) 
 .SetPosition Index:=2, X1:=intX + 200, Y1:=intY + 300 
End With

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on