Метод Shapes.AddLabel (Project)

Создает метку в отчете и возвращает объект Shape , представляющий новую метку.

Синтаксис

выражение. AddLabel(Ориентация,слева,сверху,ширина,высота)

выражение: переменная, представляющая объект Shapes.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Orientation	Обязательный	MsoTextOrientation	Ориентация текста в метке.
Left	Обязательный	Single	Положение (в точках) левого края метки относительно левой части отчета.
Top	Обязательный	Single	Позиция (в точках) верхнего края метки относительно верхней части отчета.
Width	Обязательный	Single	Ширина метки в точках.
Height	Обязательный	Single	Высота метки в пунктах.
Orientation	Обязательный	MSOTEXTORIENTATION
Left	Обязательный	FLOAT
Top	Обязательный	FLOAT
Width	Обязательный	FLOAT
Height	Обязательный	FLOAT

Возвращаемое значение

Shape

Пример

В следующем примере в новый отчет добавляется зеленая метка с текстом "Hello report!".

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

См. также

Объект Shapes ObjectShape

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.