調(diào)整PPT文字段落中的行間距，可以改善PPT的美觀效果。那么，PPT的行間距該如何調(diào)整呢？如果PPT內(nèi)只有一兩行文字，我們可以通過(guò)行間距命令來(lái)完成，但如果幾百?gòu)圥PT，都需要調(diào)整行間距，那么使用VBA代碼會(huì)更加明智快捷。
ppt行間距設(shè)置方法一：
選中需要調(diào)整的文字——單擊菜單“格式”——“行距”命令。打開(kāi)行距對(duì)話框，按需設(shè)置行間距就OK。
ppt行間距設(shè)置方法二：
ppt行間距也可以通過(guò)組合鍵來(lái)打開(kāi)行距對(duì)話框，ALT+O+S。
ppt行間距設(shè)置方法三：
如果是好幾百?gòu)圥PT就使用下面的代碼完成。按下ALT+F11，打開(kāi)VBE對(duì)話框，單擊插入——模塊，復(fù)制下面的代碼，按F5鍵運(yùn)行就可以完成PPT行間距設(shè)置。
Sub ChangeTextFont()Set pages = ActivePresentation.Slides.RangepageCount = pages.Count'第一頁(yè)和最后一頁(yè)跳過(guò)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 – 藝術(shù)字'17 – 文本框'19 – 表格'Debug.Print shapeTypeSelect Case shapeTypeCase 1, 14, 17Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRangetxtRange.SelectIf txtRange.Text <> "" Then'設(shè)置字體為宋體, 24號(hào)With txtRange.Font.Name = "宋體".Size = 24End With'設(shè)置段落格式為1.3倍行距With txtRange.ParagraphFormat.SpaceWithin = 1.3End WithEnd IfCase 7, 13, 15Case 19End SelectNext jNext iEnd Sub
