Метод Shapes.AddTextbox (Project)

  • Статья

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

Синтаксис

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

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

Параметры

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

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

Shape

Пример

В следующем примере добавляется текстовое поле со светло-желтым фоном и видимой границей. Текстовая строка отформатируется и обрабатывается с помощью элементов объекта TextFrame2 .

Sub AddTextBoxShape()
    Dim theReport As Report
    Dim textShape As shape
    Dim reportName As String
    
    reportName = "Textbox report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 300, 100)
    
    textShape.TextFrame2.TextRange.Characters.Text = "This is a test. It's only a test. " _
        & "If it had been real information, there would be some real text here."
    textShape.TextFrame2.TextRange.Characters(1, 15).ParagraphFormat.FirstLineIndent = 10
    textShape.TextFrame2.TextRange.Characters(16).InsertBefore vbCrLf
    
    ' Set the font for the first 15 characters to dark blue bold.
    With textShape.TextFrame2.TextRange.Characters(1, 15).Font
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent5
        .Fill.Solid
        .Fill.Visible = msoTrue
        .Size = 14
        .Bold = msoTrue
    End With

    With textShape.Fill
        .ForeColor.RGB = RGB(255, 255, 160)
        .Visible = msoTrue
    End With
   
    With textShape.Line
        .Weight = 1
        .Visible = msoTrue
    End With
End Sub

См. также

Объект Фигуры ФигурыОбъектTextFrame2 СвойствоMsoTextOrientation Перечисление (Office)

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

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