This code would add text layout to slide 2:

ActivePresentation.Slides(2).Layout = ppLayoutText



To see the other layout options in the vba enviornment, delete above code past =, enter = and a list of options should be displayed.