錦子老師

首先啟動Power Point 2016，再按ALT+F11鍵開啟POWER POINT VBA視窗，如下圖所示。

如果右邊視窗內容無法顯示，請在VBA Project項目上方，按滑鼠右鍵點取「插入 > 模組」指令，如下圖所示。

只需要將以下VBA代碼輸入其中，並將紅色字體，替換成需要更改的字體參數在VBA編輯器中運行即可!只適合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 = "標楷體"                                '更改為需要的字體

.Size = 15                                      ‘改為所需的文字大小

.Color.RGB = RGB(Red:=255, Green:=120, Blue:=0)   '改成想要的文字顏色，用RGB參數表示

End With

End If

Next

Next

End Sub