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