TextRange.InsertSymbol Method (PowerPoint)

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


expression. InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

expression A variable that represents an TextRange object.


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



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.


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

TextRange Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.