Método Shapes.AddLabel (Project)

Crea una etiqueta en un informe y devuelve un objeto Shape que representa la nueva etiqueta.

Sintaxis

expresión. AddLabel (Orientation,Left,Top,Width,Height)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Orientation	Obligatorio	MsoTextOrientation	Orientación del texto del rótulo.
Left	Obligatorio	Single	Posición (en puntos) del borde izquierdo de la etiqueta en relación con el lado izquierdo del informe.
Top	Obligatorio	Single	Posición (en puntos) del borde superior de la etiqueta en relación con la parte superior del informe.
Width	Obligatorio	Single	Ancho del rótulo, en puntos.
Height	Obligatorio	Single	Alto del rótulo, en puntos.
Orientación	Obligatorio	MSOTEXTORIENTATION
Left	Obligatorio	FLOAT
Top	Obligatorio	FLOAT
Width	Obligatorio	FLOAT
Height	Obligatorio	FLOAT

Valor devuelto

Shape

Ejemplo

En el ejemplo siguiente se agrega una etiqueta verde con el texto "Hello report!" a un nuevo informe.

Sub AddHelloLabel()
    Dim shapeReport As Report
    Dim reportName As String
    Dim labelShape As shape
    
    ' Add a report.
    reportName = "Label report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Set labelShape = shapeReport.Shapes.AddLabel(msoTextOrientationHorizontal, 30, 30, 120, 40)

    With labelShape
        With .Fill
            .BackColor.RGB = RGB(red:=&H20, green:=&HFF, blue:=&H20)
            .Visible = msoTrue
        End With
        
        .TextFrame2.AutoSize = msoAutoSizeShapeToFitText
        .TextFrame2.HorizontalAnchor = msoAnchorCenter
        
        With .TextFrame2.TextRange
            .Text = "Hello report!"
            .Font.Bold = msoTrue
            .Font.Name = "Calibri"
            .Font.Size = 18
        End With
    End With
End Sub

Vea también

Shapes (objeto deforma de objeto)

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.