Метод Shapes.AddPolyline (Project)

Создает открытую многолинейную линию или закрытый многоугольник и возвращает объект Shape , представляющий новую многолинейку или многоугольник.

Синтаксис

выражение. AddPolyline(SafeArrayOfPoints)

выражение: переменная, представляющая объект 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

См. также

Свойство заливкиобъектафигуры объекта фигуры

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.