PPT幻燈片的三種批量調(diào)整行間距教程
ppt行間距設(shè)置方法一:
選中需要調(diào)整的文字——單擊菜單“格式”——“行距”命令。打開行距對話框,按需設(shè)置行間距就OK。
ppt行間距設(shè)置方法二:
ppt行間距也可以通過組合鍵來打開行距對話框,ALT+O+S。
ppt行間距設(shè)置方法三:
如果是好幾百張PPT就使用下面的代碼完成。按下ALT+F11,打開VBE對話框,單擊插入——模塊,復(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號
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
繼續(xù)查找其他問題的答案?
-
2021-02-012次播放
-
2021-02-017次播放
-
PowerPoint 2019如何取消最終標(biāo)記狀態(tài)?
2021-02-0157次播放
-
PowerPoint 2019如何設(shè)置數(shù)字簽名?
2021-02-017次播放
-
2021-02-0120次播放
-
PowerPoint 2019如何設(shè)置用密碼進(jìn)行加密?
2021-02-013次播放
-
PowerPoint 2019如何標(biāo)記為最終狀態(tài)?
2021-01-305次播放
-
PowerPoint 2019如何更改SmartArt圖形的顏色?
2021-01-309次播放
-
PowerPoint 2019如何應(yīng)用自定義主題?
2021-01-304次播放
-
2021-01-303次播放
最近更新
- office ppt 2016 如何給圖片設(shè)置透明色?
- office ppt 2016 如何刪除插入的視頻?
- office ppt 2016 如何設(shè)置幻燈片放映比例?
- office ppt 2016 如何設(shè)置幻燈片放映比例?
- office ppt 2015 如何更換幻燈片的背景顏色?
- office ppt 2016 幻燈片的合并形狀是灰色怎么辦?
- office ppt 2016 如何將圖片設(shè)置為背景?
- office ppt 2016 如何在演示(PPT)中分頁插圖?
- office ppt 2016 在幻燈片中如何打開查找功能?
- office ppt 2016 如何在幻燈片中應(yīng)用“設(shè)計(jì)”方案?
點(diǎn)擊加載更多評論>>