TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
Sub TextFonts() Dim oSl As Slide Dim oSh As Shape Dim sFontName As String ' Edit this as needed: sFontName = "Times New Roman" With ActivePresentation For Each oSl In .Slides For Each oSh In oSl.Shapes With oSh If .HasTextFrame Then If .TextFrame.HasText Then .TextFrame.TextRange.Font.Name = sFontName End If End If End With Next Next End With End Sub