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
|