|
調(diào)整PPT文字段落中的行間距，可以改善PPT的美觀效果。那么，PPT的行間距該如何調(diào)整呢？如果PPT內(nèi)只有一兩行文字，我們可以通過行間距命令來完成，但如果幾百張PPT，都需要調(diào)整行間距，那么使用VBA代碼會更加明智快捷。 ppt行間距設(shè)置方法一：選中需要調(diào)整的文字——單擊菜單“格式”——“行距”命令。打開行距對話框，按需設(shè)置行間距就OK。 ppt行間距設(shè)置方法二：ppt行間距也可以通過組合鍵來打開行距對話框，ALT O S。 ppt行間距設(shè)置方法三：如果是好幾百張PPT就使用下面的代碼完成。按下ALT F11，打開VBE對話框，單擊插入——模塊，復(fù)制下面的代碼，按F5鍵運行就可以完成PPT行間距設(shè)置。 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 - 藝術(shù)字 '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 '設(shè)置字體為宋體, 24號 With txtRange.Font .Name = '宋體' .Size = 24 End With '設(shè)置段落格式為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
|
|
|
