Метод TextRange.InsertSymbol (PowerPoint)

Статья
04/07/2023

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

Синтаксис

выражение. InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FontName	Обязательный	String	Имя шрифта.
CharNumber	Обязательный	Long	Номер символа в Юникоде или ASCII.
Unicode	Необязательный	MsoTriState	Указывает, представляет ли аргумент CharNumber символ ASCII или Юникод.

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

TextRange

Замечания

Значение параметра CharNumber может быть одной из этих констант MsoTriState .

Константа	Описание
msoFalse	Значение по умолчанию. Аргумент CharNumber представляет номер символа ASCII.
msoTrue	Аргумент CharNumber представляет символ Юникода.

Пример

В этом примере символ зарегистрированного товарного знака вставляется после первого предложения первого абзаца в новое текстовое поле на первом слайде активной презентации.

Sub Symbol()

    Dim txtBox As Shape

    'Add text box
    Set txtBox = Application.ActivePresentation.Slides(1) _
        .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
            Left:=100, Top:=100, Width:=100, Height:=100)

    'Add symbol to text box
    txtBox.TextFrame.TextRange.InsertSymbol _
        FontName:="Symbol", CharNumber:=226

End Sub

См. также

Объект TextRange

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

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

Поделиться через