通过

Shapes.AddPolyline 方法 (Project)

  • 项目

创建开放折线或闭合多边形绘图，并返回一个代表新折线或多边形的 Shape 对象。

语法

expression。 AddPolyline (SafeArrayOfPoints)

expression：一个表示 Shapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
SafeArrayOfPoints 必需 Variant 指定折线顶点的坐标对数组。
SafeArrayOfPoints 必需 Variant
名称 必需/可选 数据类型 说明

返回值

Shape

备注

若要组成一个封闭的多边形，请为连续线段图形的第一个和最后一个顶点指定相同的坐标。 对于闭合多边形，默认形状填充颜色为中等蓝色：&HD59B5B 或 RGB(Red:=91, Green:=155, Blue:=213)。

示例

由于第一个点和最后一个点相同，以下示例创建一个闭合的八角形。 紫罗兰线为两磅宽：八角形以金色填充。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。