Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Formatting the Text in a Text Range

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