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