InsertSymbol Method
Returns a TextRange object that represents a symbol inserted into the specified text range.
expression.InsertSymbol(FontName, CharNumber, UniCode)
expression Required. An expression that returns a TextRange object.
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.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Doesn't apply to this method. |
| msoFalse Default. The CharNumber argument represents an ASCII character number. |
| msoTriStateMixed Doesn't apply to this method. |
| msoTriStateToggle Doesn't apply to this method. |
| 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