PPT幻灯片的三种批量调整行间距教程

                        调整PPT文字段落中的行间距，可以改善PPT的美观效果。那么，PPT的行间距该如何调整呢？如果PPT内只有一两行文字，我们可以通过行间距命令来完成，但如果几百张PPT，都需要调整行间距，那么使用VBA代码会更加明智快捷。
        ppt行间距设置方法一：

        选中需要调整的文字——单击菜单“格式”——“行距”命令。打开行距对话框，按需设置行间距就OK。
        ppt行间距设置方法二：

        ppt行间距也可以通过组合键来打开行距对话框，ALT+O+S。
        ppt行间距设置方法三：

        如果是好几百张PPT就使用下面的代码完成。按下ALT+F11，打开VBE对话框，单击插入——模块，复制下面的代码，按F5键运行就可以完成PPT行间距设置。
        Sub ChangeTextFont()
        Set pages = ActivePresentation.Slides.Range
        pageCount = pages.Count
        '第一页和最后一页跳过
        For i = 2 To pageCount - 1
        DoEvents
        ActiveWindow.View.GotoSlide Index:=i
        shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count
        For j = 1 To shapeCount
        ActiveWindow.Selection.SlideRange.Shapes(j).Select
        shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type
        '1 - 自选图形
        '7 - 公式
        '13 - 图片
        '14 - 占位符
        '15 - 艺术字
        '17 - 文本框
        '19 - 表格
        'Debug.Print shapeType
        Select Case shapeType
        Case 1, 14, 17
        Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
        txtRange.Select
        If txtRange.Text <> "" Then
        '设置字体为宋体, 24号
        With txtRange.Font
        .Name = "宋体"
        .Size = 24
        End With
        '设置段落格式为1.3倍行距
        With txtRange.ParagraphFormat
        .SpaceWithin = 1.3
        End With
        End If
        Case 7, 13, 15
        Case 19
        End Select
        Next j
        Next i
        End Sub