次の方法で共有

Shapes.AddPolyline メソッド (Word)

  • [アーティクル]

開いた、または閉じた多角形を描画キャンバスに追加します。 多角形を表し、 CanvasShapes コレクションに追加する Shape オブジェクトを返します。

構文

式。 AddPolyline( _SafeArrayOfPoints_ )

式 が必要です。 Shapes オブジェクトを表す変数。

パラメーター

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

注釈

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

例

次の使用例は、新しい描画キャンバスに V 型の開いた折れ線を作成します。

Sub NewCanvasPolyline() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 Dim sngArray(1 To 3, 1 To 2) As Single 
 
 'Creates a new document and adds a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=200, Height:=300) 
 
 'Sets the coordinates of the array 
 sngArray(1, 1) = 100 
 sngArray(1, 2) = 75 
 sngArray(2, 1) = 150 
 sngArray(2, 2) = 100 
 sngArray(3, 1) = 100 
 sngArray(3, 2) = 125 
 
 'Adds a V-shaped open polyline to the drawing canvas 
 shpCanvas.CanvasItems.AddPolyline SafeArrayOfPoints:=sngArray 
End Sub

関連項目

Shapes コレクション オブジェクト

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

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