Método Shapes.AddPolyline (Project)

Crea una polilínea abierta o un dibujo de polígono cerrado y devuelve un objeto Shape que representa la nueva polilínea o polígono.

Sintaxis

expresión. AddPolyline (SafeArrayOfPoints)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SafeArrayOfPoints	Obligatorio	Variant	Matriz de pares de coordenadas que especifica los vértices de la polilínea.
SafeArrayOfPoints	Obligatorio	Variant
Nombre	Obligatorio/opcional	Tipo de datos	Descripción

Valor devuelto

Shape

Observaciones

Para formar un polígono cerrado, asigne las mismas coordenadas a los vértices inicial y final del dibujo del polígono. Para un polígono cerrado, el color de relleno de forma predeterminado es un azul medio: &HD59B5B o RGB(Red:=91, Green:=155, Blue:=213).

Ejemplo

Dado que el primer y el último punto son iguales, en el ejemplo siguiente se crea un octágono cerrado. La línea violeta tiene dos puntos de ancho; el octágono está lleno de un color dorado.

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

Vea también

Shapes (propiedad fill) de la propiedad De objeto Shape del objetoShapes

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.