Método Shapes.AddPolyline (Projeto)

Cria um desenho de polilinha aberta ou polígono fechado e retorna um objeto Shape que representa a nova polilinha 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 de forma padrão é um azul médio: &HD59B5B ou RGB(Red:=91, Green:=155, Blue:=213).

Exemplo

Como o primeiro e o último pontos são iguais, o exemplo a seguir cria um octógono 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

Formas ObjetoForma ObjetoLinha PropriedadePreencher Propriedade

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.