Powerpoint VisualBasic Script

Sub layout()
    ActivePresentation.Slides(1).Layout = ppLayoutClipArtAndVerticalText
End Sub