This only does it on placeholders, not other types of shapes or tables
I didn't bother to test for the current font size (like in your macros)
Option Explicit
Sub test()
Dim oPres As Presentation
Dim oSlide As Slide
Dim oShape As Shape
Set oPres = ActivePresentation
For Each oSlide In oPres.Slides
For Each oShape In oSlide.Shapes
With oShape
If .Type <> msoPlaceholder Then GoTo NextShape
If Not .HasTextFrame Then GoTo NextShape
If Not .TextFrame.HasText Then GoTo NextShape
If (.PlaceholderFormat.Type = ppPlaceholderTitle) Or _
(.PlaceholderFormat.Type = ppPlaceholderCenterTitle) Or _
(.PlaceholderFormat.Type = ppPlaceholderVerticalTitle) Then
'3. Change header font size to 60 just on 1st Slide
'1. Change Header font size on every slide to 44
.TextFrame.TextRange.Font.Size = IIf(oSlide.SlideNumber = 1, 60, 44)
Else
'2. Change content font size of every slide to 32
.TextFrame.TextRange.Font.Size = 32
End If
End With
NextShape:
Next
NextSlide:
Next
End Sub