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

總結(jié)

以上是生活随笔為你收集整理的PPT批量替换字体、行间距操作的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。