Changing the Layout of an Existing Slide
Sub layout() ActivePresentation.Slides(1).Layout = ppLayoutClipArtAndVerticalText End Sub