LineRuleAfter 属性

       

决定是否将每段最后一行后面的行距设为指定的磅数或行数。可读写。MsoTriState 类型。

示例

本示例在显示一个消息框,其中显示当前演示文稿第一张幻灯片第二个形状中文本段落后的间距设置。

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