Hi there,
I have a large Powerpoint presentation which I'm trying to do some global font changes to.
So far I've written this to try and find text with a certain font name, once I can find text that meets a certain .Name and .Size I'd like to change it.
When I try to execute the code below I get an error 'Object doesn't support this property or method' and it's happening with this line [VBA]If aShape.TextFrame.TextRange.Font = "Haettenschweiler" Then'[/VBA]
Please can someone point me in the right direction.
[VBA]Sub changeFont()
For Each aSlide In ActivePresentation.Slides
For Each aShape In aSlide.Shapes
If aShape.Type = msoTextBox Then
If aShape.TextFrame.HasText Then
If aShape.TextFrame.TextRange.Font = "Haettenschweiler" Then
MsgBox "Found one"
End If
End If
End If
Next
Next
End Sub[/VBA]
Thanks in advance.
Regards,
Nick