Inserting Special Character Harvey Balls into PPT

Hi all

I've made various attempts to drop in a special character at the cursor using VBA in PPT (Office 2016) - however, the 3 quarter Harvey Ball in Segoe UI Symbol font is "25D5" and in Unicode (Hex). Other special characters work fine, if they're Decimal not Unicode (hex); a Hex to Decimal converter for 25D5 is 9685 but then this special character isn't found. I've spent hours trying to find out how, nothing.

Code:

---

Sub HarveyBall3Q()
On Error Resume Next
With ActiveWindow.Selection.TextRange.Characters
.Text = Chr$(25D5)
.Font.Name = "Segoe UI Symbol"
End With
End Sub

---

Any way of using the Segoe UI Symbol's Harvey Ball character 25D5 (Unicode, Hex)?

Thank you.

Try

Code:

---

Sub HarveyBall3Q()
    With ActiveWindow.Selection.TextRange.Characters
        .Text = ChrW(9685)
        .Font.Name = "Segoe UI Symbol"
    End With
End Sub

---

Thank you :)