如何批量修改PPT字體、大小、顏色

只需要將以下VBA代碼中紅色字體，替換成需要更改的字體參數(shù)，然后將修改完成的VBA代碼放入VBA編輯器中運(yùn)行即可！只適合PPT2007及其以上版本！ Sub change() Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = oShape.TextFrame.TextRange If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "楷體_GB2312" ? ? ? ? ? ? ? ? ? ? ? ? ? ? '更改為需要的字體 ? ? ? ? ? ? ? .Size =?15? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'改為所需的文字大小 .Color.RGB = RGB(Red:=255, Green:=120, Blue:=0) ? '改成想要的文字顏色，用RGB參數(shù)表示? End With End If Next Next End Sub http://blog.sina.com.cn/s/blog_49f78a4b0102e22i.html

轉(zhuǎn)載于:https://www.cnblogs.com/painmoth/archive/2013/05/02/3054524.html

總結(jié)

以上是生活随笔為你收集整理的如何批量修改PPT字体、大小、颜色(转)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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