Referring subtitle of a slide in order to format using VBA PowerPoint

[CuriosityBug]

Hello all,

I am trying to set the position and formatting of title, subtitle in the slide. I tried doing it using the following code. It works on title but not on subtitle. How can we get reference of subtitle to work on its position, font size etc.

Sub Titles()
Dim osld As Slide, oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then

If oshp.PlaceholderFormat.Type = ppPlaceholderTitle Then
With oshp
.Top = 5
.Left = 5
.TextFrame.TextRange.Font.Name = "Times New Roman"
.TextFrame.TextRange.Font.Size = 24
End With

ElseIf oshp.PlaceholderFormat.Type = ppPlaceholderSubtitle Then
With oshp
.Top = 10
.Left = 10
.TextFrame.TextRange.Font.Name = "Times New Roman"
.TextFrame.TextRange.Font.Size = 18
End With

End If


End If

Next oshp
Next osld
End Sub