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