Метод TextRange.InsertSymbol (PowerPoint)

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

Синтаксис

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

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FontName	Обязательный	String	Имя шрифта.
CharNumber	Обязательный	Long	Номер символа Unicode или 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 и обратная связь.