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
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.