Método Shapes.AddLabel (Project)

Cria um rótulo em um relatório e retorna um objeto Shape que representa o novo rótulo.

Sintaxe

expression. AddLabel(Orientação,esquerda,superior,largura,altura)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Orientation	Obrigatório	MsoTextOrientation	A orientação do texto no rótulo.
Left	Obrigatório	Single	A posição (em pontos) da borda esquerda do rótulo em relação ao lado esquerdo do relatório.
Top	Obrigatório	Single	A posição (em pontos) da borda superior do rótulo em relação à parte superior do relatório.
Width	Obrigatório	Single	A largura do rótulo, em pontos.
Height	Obrigatório	Single	A altura do rótulo, em pontos.
Orientation	Obrigatório	MSOTEXTORIENTATION
Left	Obrigatório	FLOAT
Top	Obrigatório	FLOAT
Width	Obrigatório	FLOAT
Height	Obrigatório	FLOAT

Valor de retorno

Formato

Exemplo

O exemplo a seguir adiciona um rótulo verde com o texto "Olá relatório!" a um novo relatório.

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

Confira também

ObjetoShapes Object

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.