LineRuleWithin 属性

       

决定是否将基线间的行距设为指定磅数或行数。可读写。MsoTriState 类型。

示例

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

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat
        ls = .SpaceWithin
        If .LineRuleWithin Then
            lsUnits = " lines"
        Else
            lsUnits = " points"
        End If
    End With
End With
MsgBox "Current line spacing: " & ls & lsUnits