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

Cria uma etiqueta num relatório e devolve um objeto Forma que representa a nova etiqueta.

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) do limite esquerdo da etiqueta em relação ao lado esquerdo do relatório.
Top	Obrigatório	Single	A posição (em pontos) do limite superior da etiqueta 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 seguinte adiciona uma etiqueta verde com o texto "Hello 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

Objeto de Formade 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.