PPT幻燈片的三種批量調(diào)整行間距教程

ppt行間距設(shè)置方法一：

選中需要調(diào)整的文字——單擊菜單“格式”——“行距”命令。打開行距對(duì)話框，按需設(shè)置行間距就OK。

ppt行間距設(shè)置方法二：

ppt行間距也可以通過組合鍵來打開行距對(duì)話框，ALT+O+S。

ppt行間距設(shè)置方法三：

如果是好幾百張PPT就使用下面的代碼完成。按下ALT+F11，打開VBE對(duì)話框，單擊插入——模塊，復(fù)制下面的代碼，按F5鍵運(yùn)行就可以完成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號(hào)

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