今天在百度文庫上下載了一篇關于Orale優化的PPT，無奈下載下來文中字體大的離譜，而且頁碼不少，要是我一頁一頁Ctrl+A全選去修改，未免不是一件體力活，于是在網上找到了一段關于批量修改PPT字體的宏，修改后親測可用，便記錄下來，供參考。

具體操作方法：開發工具——宏——創建宏

將如下方法粘貼，運行即可

代碼如下：

Sub ziTiEdit()Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesSet oTxtRange = oShape.TextFrame.TextRangeIf Not IsNull(oTxtRange) ThenWith oTxtRange.Font.Name = "楷體_GB2312".Size = 10.Color.RGB = RGB(Red:=255, Green:=255, Blue:=255)End WithEnd IfNextNext End Sub

總結

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

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