本人遇到一個問題，就是修改已經做好的ppt文件時，怎么樣才能如何批量修改ppt字體大小及顏色，我google了很多相似的問題，但給出答案不是很滿意，有高手請賜教，謝謝！

我從網上搜索到另一個代碼，
經過運行是可以使用的；
但因為還需要修改顏色
所以我多添加了一個顏色設置
代碼如下：


針對很多朋友對“宏”的了解較少
給出一個示范教程吧！
需要注意的是，
采用宏的課件打開的使用
會彈出一個對話框
請選擇中間的“使用宏”
否則無法使用宏進行編輯！

首先，將代碼復制到記事本或word中，
然后，打開你需要修改的PPT，
然后創建宏，再運行宏！

Sub OED01() '批量修改字體格式、大小和顏色 Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesSet oTxtRange = oShape.TextFrame.TextRangeIf Not IsNull(oTxtRange) ThenWith oTxtRange.Font.Name = "楷體_GB2312" '改成你需要的字體.Size = 20 '改成你需要的文字大小.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字顏色End WithEnd IfNextNext End Sub

即可實現，看圖操作吧！

總結

以上是生活随笔為你收集整理的批量修改ppt字体大小及颜色的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。