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.RangepageCount = pages.Count'第一页和最后一页跳过For i = 2 To pageCount – 1DoEventsActiveWindow.View.GotoSlide Index:=ishapeCount = ActiveWindow.Selection.SlideRange.Shapes.CountFor j = 1 To shapeCountActiveWindow.Selection.SlideRange.Shapes(j).SelectshapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type'1 – 自选图形'7 – 公式'13 – 图片'14 – 占位符'15 – 艺术字'17 – 文本框'19 – 表格'Debug.Print shapeTypeSelect Case shapeTypeCase 1, 14, 17Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRangetxtRange.SelectIf txtRange.Text <> "" Then'设置字体为宋体, 24号With txtRange.Font.Name = "宋体".Size = 24End With'设置段落格式为1.3倍行距With txtRange.ParagraphFormat.SpaceWithin = 1.3End WithEnd IfCase 7, 13, 15Case 19End SelectNext jNext iEnd Sub