Найти персонажа Wingdings (Powerpoint 2013+)

Question

Я ищу способ программно найти специального персонажа Wingdings на слайде.

например, символ Wingdings с десятичным кодом 254.

Однако, поскольку это легко сделать в Word (см. Здесь: https://wordmvp.com/FAQs/MacrosVBA/FindReplaceSymbols.htm), я не могу найти способ сделать это в Powerpoint.

Word предоставляет функцию, которая получает имя и код символа

Sub GetCharNoAndFont()

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

End Sub

Есть ли эквивалент в Powerpoint?

Answer 1

Я все еще могу неправильно понять ваш вопрос (я не уверен, что вы подразумеваете под search for symbols) но вы можете использовать:

---

Силовая установка:

• TextRange.InsertSymbol Метод (PowerPoint)

• AscW Функция (VBA)

• ChrW Функция (VBA)

• Вставьте символы и символы ASCII или Unicode на основе латинского алфавита (Office 2007-2016)

---

Excel:

• WorksheetFunction.Unicode Method идентифицировать код для символа Unicode.

• WorksheetFunction.Unichar Method вернуть (отобразить) символ Unicode.

• WorksheetFunction.Find Method найти конкретные символы на листе.