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