Shapes.AddPolyline method (Project) (Método Shapes.AddPolyline [Project])

Cria um desenho poliline ou polígono fechado aberto e devolve um objeto Forma que representa o novo polígono ou polígono.

Sintaxe

expression. AddPolyline (SafeArrayOfPoints)

expressão Uma variável que representa um objeto Formas.

Parâmetros

Valor de retorno

Formato

Comentários

Para formar um polígono fechado, atribua as mesmas coordenadas ao primeiro e último vértices no desenho de linha múltipla. Para um polígono fechado, a cor de preenchimento da forma predefinida é um azul médio: &HD59B5B ou RGB(Red:=91, Green:=155, Blue:=213).

Exemplo

Uma vez que o primeiro e o último pontos são os mesmos, o exemplo seguinte cria um octogono fechado. A linha violeta tem dois pontos de largura; o octógono é preenchido com uma cor dourada.

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

Confira também

Propriedade de Preenchimento da Propriedade Da Linha do Objeto da Forma do Objeto formas

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.