Shapes.AddPolyline メソッド (Publisher)

開いているポリラインまたは閉じたポリゴンを表す新しい Shape オブジェクトを、指定した Shapes コレクションに追加します。

構文

式。AddPolyline (SafeArrayOfPoints)

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

パラメーター

名前	必須 / オプション	データ型	説明
SafeArrayOfPoints	必須	バリアント型 (Variant)	折れ線または多角形の頂点を指定する 2 次元の座標の配列を指定します。

戻り値

Shape

注釈

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

閉じた多角形を作成するには、折れ線の始点と終点に同じ座標値を指定します。

例

次の使用例は、作業中の文書の先頭ぺージに三角形を追加します。 始点と終点が同じ座標値なので、この多角形は閉じています。

Dim shpPolyline As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 25 
arrPoints(1, 2) = 100 
arrPoints(2, 1) = 100 
arrPoints(2, 2) = 150 
arrPoints(3, 1) = 150 
arrPoints(3, 2) = 50 
arrPoints(4, 1) = 25 
arrPoints(4, 2) = 100 
 
Set shpPolyline = ActiveDocument.Pages(1).Shapes.AddPolyline _ 
 (SafeArrayOfPoints:=arrPoints)

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

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