Shapes.AddPolyline メソッド (Project)

開いているポリラインまたは閉じたポリゴン図面を作成し、新しいポリラインまたはポリゴンを表す Shape オブジェクトを返します。

構文

式。 AddPolyline(SafeArrayOfPoints)

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

パラメーター

名前	必須 / オプション	データ型	説明
SafeArrayOfPoints	必須	バリアント型	ポリラインの頂点を指定する座標ペアの配列。
SafeArrayOfPoints	必須	バリアント型
名前	必須 / オプション	データ型	説明

戻り値

Shape

注釈

閉じた多角形を作成するには、折れ線の始点と終点に同じ座標値を指定します。 閉じた多角形の場合、既定の図形の塗りつぶしの色は、&HD59B5B または RGB(Red:=91, Green:=155, Blue:=213)です。

例

最初と最後のポイントは同じであるため、次の例では閉じた八角形を作成します。 紫色の線は 2 ポイント幅です。八角形は金色で塗りつぶされています。

Sub AddOctagon()
    Dim shapeReport As Report
    Dim reportName As String
    Dim polylineShape As shape
    
    ' Add a report.
    reportName = "Polyline report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    Dim octArray(1 To 9, 1 To 2) As Single
    octArray(1, 1) = 9
    octArray(1, 2) = 8
    octArray(2, 1) = 19
    octArray(2, 2) = 8
    octArray(3, 1) = 26
    octArray(3, 2) = 15
    octArray(4, 1) = 26
    octArray(4, 2) = 25
    octArray(5, 1) = 19
    octArray(5, 2) = 32
    octArray(6, 1) = 9
    octArray(6, 2) = 32
    octArray(7, 1) = 2
    octArray(7, 2) = 25
    octArray(8, 1) = 2
    octArray(8, 2) = 15
    octArray(9, 1) = 9
    octArray(9, 2) = 8
    
    Set polylineShape = shapeReport.Shapes.AddPolyline(octArray)
    
    With polylineShape.Line
        .Weight = 2
        .ForeColor.RGB = &HFF0090    ' Violet color.
    End With
    
    polylineShape.Fill.ForeColor.RGB = &H10D0D0    ' Gold color.
End Sub

関連項目

Shapes オブジェクト図形オブジェクトの線プロパティFill プロパティ

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

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