Change Font VBA

Change.VBA

Sub Titre()
On Error Resume Next
    With ActivePresentation
         For i = 1 To .Slides.Count
            With .Slides(i).Shapes("Slide Number Placeholder 5").TextFrame2
                .TextRange.Font.Name = "IPT Lotus"
                .TextRange.Font.Size = 18
                .TextRange.Font.Bold = msoTrue
             End With
         Next i:
      End With
End Sub