Sub format()
With ActiveSlide.Shapes(2).TextFrame.TextRange.ParagraphFormat
.Alignment = ppAlignLeft
.LineRuleAfter = msoFalse
.SpaceAfter = 18
.LineRuleBefore = msoFalse
.SpaceBefore = 18
.LineRuleWithin = msoFalse
.SpaceWithin = 12 End With End Sub