LineRuleAfter Property Example

This example displays a message box that shows the setting for space after paragraphs for the text in shape two on slide one in the active presentation.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat
        sa = .SpaceAfter
        If .LineRuleAfter Then
            saUnits = " lines"
        Else
            saUnits = " points"
        End If
    End With
End With
MsgBox "Current spacing after paragraphs: " & sa & saUnits