Find Wingdings character (Powerpoint 2013+)

Question

I'm looking for a way to programatically find a special Wingdings character on a slide.

e.g. the Wingdings character with a decimal code of 254.

However since it seems to be easy to do in Word (see here: https://wordmvp.com/FAQs/MacrosVBA/FindReplaceSymbols.htm) I can't figure out a way to do it in Powerpoint.

Word provides a function that gets name and the char code of a symbol

Sub GetCharNoAndFont()

With Dialogs(wdDialogInsertSymbol)
    Debug.Print "Font: " & .Font
    Debug.Print "Char number " & .CharNum
End With

End Sub

Is there any equivalent in Powerpoint?

Answer 1

I might still misunderstand your question (I'm not sure what you mean by search for symbols) but you could use:

---

Powerpoint:

• TextRange.InsertSymbol Method (PowerPoint)

• AscW Function (VBA)

• ChrW Function (VBA)

• Insert ASCII or Unicode Latin-based symbols and characters (Office 2007-2016)

---

Excel:

• WorksheetFunction.Unicode Method to identify the code for a Unicode character.

• WorksheetFunction.Unichar Method to return (display) a Unicode character.

• WorksheetFunction.Find Method to find specific symbols on a worksheet.