TextRange.InsertSymbol (PowerPoint)

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

The CharNumber parameter value can be one of these MsoTriState constants.

InsertSymbol (FontName, CharNumber, Unicode)

Dim strFontName As String: strFontName = 
Dim lngCharNumber As Long: lngCharNumber = 
Dim treInsertSymbol As TextRange
Set treInsertSymbol = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.InsertSymbol(FontName:=strFontName, CharNumber:=lngCharNumber)

Arguments

The following arguments are required:

FontName (String) - The font name.

CharNumber (Long) - The Unicode or ASCII character number.

Optional arguments

The following argument is optional

Unicode (Office.MsoTriState) - Specifies whether the CharNumber argument represents an ASCII or Unicode character.