Share via

TextRange.InsertSymbol Method

  • Article
PowerPoint Developer Reference

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.

Visual Basic for Applications 
  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.<strong>InsertSymbol</strong> _
    FontName:="Symbol", CharNumber:=226



End Sub

See Also