Method 1: Manually replace the font
To work around this issue, you can locate each text object that uses the font that you want to replace, and then select the text. Then, on the Home tab, in the Font group, on the Font drop-down list, select the font that you want to replace the old font with.
Method 2: Replace the font on a computer that has the font installed
To work around this issue, you can either install the font that you want to replace, or you can replace the font in the presentation on a computer that has the font already installed.
Method 3: Macro
Dim x As Long
On Error Resume Next
For x = 1 To .Count