Share via


TextRange.InsertSymbol Method (PowerPoint)

Returns a TextRange object that represents a symbol inserted into the specified text range.

Syntax

expression .InsertSymbol(FontName, CharNumber, UniCode)

expression A variable that represents an TextRange object.

Parameters

Name

Required/Optional

Data Type

Description

FontName

Required

String

The font name.

CharNumber

Required

Long

The Unicode or ASCII character number.

Unicode

Optional

MsoTriState

Specifies whether the CharNumber argument represents an ASCII or Unicode character.

Return Value

TextRange

Remarks

The CharNumber parameter value can be one of these MsoTriState constants.

Constant

Description

msoFalse

The default. The CharNumber argument represents an ASCII character number.

msoTrue

The CharNumber argument represents a Unicode character.

Example

This example inserts the registered trademark symbol after the first sentence of the first paragraph in a new text box on the first slide in the active presentation.

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

See Also

Concepts

TextRange Object

TextRange Object Members