大家好，我是星星為梅引路，這是第838篇原創(chuàng)文章。

PPT格式的修改可以使用代碼，比如字體和行間距的修改，而不是手工去調(diào)整。

至于修改的代碼是什么，問一問人工智能就知道了。所有的人工智能都可以回答這樣的問題，都可以寫代碼。

我忙乎了一個(gè)下午和晚上，一個(gè)非常重要方法，一次性修改PPT所有頁面的字體和行間距，我終于學(xué)會(huì)了。

下午的時(shí)候，我從網(wǎng)站復(fù)制出來的代碼，根本就不能用。當(dāng)時(shí)，我沒有想到AI會(huì)寫代碼。

晚上，我繼續(xù)嘗試。

這個(gè)快速的方法，是我在AI的幫助下，復(fù)制出代碼，我就知道怎么修改的。

很快，我就將所有ppt的字體和行間距全部修改了。

1

PPT替換字體比較簡(jiǎn)單，特別是字體不清晰的時(shí)候，需要替換成清晰的字體，比如微軟雅黑。替換字體，就是打開ppt，在開始—替換——替換字體，在彈出的對(duì)話框中，選擇原來的字體，替換成想要的字體，就可以了。

替換字體，很快就可以一個(gè)ppt中所有頁面上的字體的格式都替換完成。

上課的時(shí)候，不能用顏色淺的字體。特別教室大的時(shí)候。

我需要將顏色淺的字體，比如宋體全部變成微軟雅黑，這樣的字體容易看清楚，特別是坐在教室后面，也可以看清楚。

字體顏色淺，我站在教室的中央，就看不到字體，我不知道寫的什么。

PPT的字體要黑一些，我需要將所有ppt的字體都變成微軟雅黑才可以。

2

行間距的修改，剛開始，我以為只能手工調(diào)整。我開始調(diào)整，發(fā)現(xiàn)這樣太慢，需要很長(zhǎng)時(shí)間，才可以調(diào)整網(wǎng)。

有人說用islide調(diào)整，下載islide以后，卻發(fā)現(xiàn)安裝不了，根本就用不成。

我只能手工調(diào)整一部分，仍然感覺太麻煩了。

繼續(xù)在網(wǎng)上問，該怎么修改所有頁面的行間距。

最后找到了方法。

如果是好幾百?gòu)?/span>PPT就使用下面的代碼完成行間距的統(tǒng)一調(diào)整。按下Alt+F11，打開vbe對(duì)話框，單擊插入——模塊，復(fù)制下面的代碼，粘貼進(jìn)去，然后按f5鍵運(yùn)行，很快就可以完成PPT行間距設(shè)置。代碼是這樣的。

Sub SetLineSpacing()

 Dim sld As Slide

 Dim shp As Shape

 Dim txtRange As TextRange

 ' 遍歷所有幻燈片

 For Each sld In ActivePresentation.Slides

 ' 遍歷每頁幻燈片中的所有形狀

 For Each shp In sld.Shapes

 ' 檢查形狀是否包含文本框

 If shp.HasTextFrame Then

 If shp.TextFrame.HasText Then

 Set txtRange = shp.TextFrame.TextRange

 ' 設(shè)置行間距（例如，1.5倍行距）

txtRange.ParagraphFormat.SpaceWithin = 1.5

 End If

 End If

 Next shp

 Next sld

 MsgBox "行間距設(shè)置完成！", vbInformation

End Sub

3

這段代碼是人工智能告訴我的，復(fù)制出來粘貼進(jìn)去，就可以了。

運(yùn)行完成后，會(huì)彈出一個(gè)提示框，顯示“行間距設(shè)置完成！”。

隨后保存文件的時(shí)候，不要選擇是。

要選擇否，類型選擇為“啟用宏的ppt演示文件”，然后保存，文件類型是pptm，這樣的格式，所有頁面的行間距全部修改完成。

本來需要幾天時(shí)間才可以完成的工作，我很快就可以完成。

只不過pptm格式的文件放映的時(shí)候，效果如何，我還沒有用過。

如果放映效果和ppt沒有任何區(qū)別，就可以用pptm格式的文件來放映。

4

現(xiàn)在，人根本就不需要看懂代碼，可以讓AI來寫PPT的代碼。復(fù)制出來，粘貼就可以用。

有了AI代碼，工作的速度快多了。

那種重復(fù)性的工作，比如修改字體和行間距之類的工作，還是盡量問一問AI，看AI是否可以做。

AI做擅長(zhǎng)做重復(fù)性的工作。

如果AI可以做的事情，盡量讓AI來做，而不是利用人來做。

讓AI做的速度，還是比人快。

這些方法，我要趕緊寫下來，避免以后用的時(shí)候，我忘記了，還有重新查找。