Compartilhar via

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

  • Artigo

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

Nome Obrigatório/Opcional Tipo de dados Descrição
SafeArrayOfPoints Obrigatório Variant Uma matriz de pares de coordenadas que especifica os vértices da polilina.
SafeArrayOfPoints Obrigatório Variant
Nome Obrigatório/Opcional Tipo de dados Descrição

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.