SpaceBefore Property Example

This example sets the spacing before paragraphs to 6 points for the text in shape two on slide in the active presentation.

With Application.ActivePresentation.Slides(1).Shapes(2)
    With .TextFrame.TextRange.ParagraphFormat
        .LineRuleBefore = False
        .SpaceBefore = 6
    End With
End With