Layout Property Example

This example changes the layout of slide one in the active presentation to include a title and subtitle if it initially has only a title.

With ActivePresentation.Slides(1)
    If .Layout = ppLayoutTitleOnly Then
        .Layout = ppLayoutTitle
    End If
End With