probably worth asking with the link I included. Jim knows a lot more about Mac vba than me.

We don't give up either! The company strap line is "If it's impossible it may take a little longer."

I have no idea if this lateral thinking approach works on a Mac but have a go

Sub macable_maybe()
Dim osld As Slide
Dim oshp As Shape


For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then
oshp.TextFrame.TextRange.Select
End If
End If
Application.CommandBars.ExecuteMso ("CharacterFormattingReset")
Next oshp
Next osld
End Sub

You could also (maybe)

Loop through shapes that are text placeholders with text and with one set correctly

oshp.PickUp

and with all the others

oshp.Apply

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials