With ActivePresentation.Slides(1).Shapes.Placeholders
If .Count > 0 Then
With .Item(1)
Select Case .PlaceholderFormat.Type
Case wpPlaceholderTitle
.TextFrame.TextRange = "Title Text"
Case wpPlaceholderCenterTitle
.TextFrame.TextRange = "Centered Title Text"
Case Else
MsgBox "There's no horizontal" & _
"title on this slide"
End Select
End With
End If
End With