Метод 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 и обратная связь.