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. |
TextRange
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