调整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