1.在ppt的视图–>宏–>创建
2.嵌入代码
Sub 字体()%自带的
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 = "GB-2312" 字形
.Size = 20 字大小
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) 字颜色
End With
End If
Next
Next
End Sub %自带的
3.保存后退出,然后找到创建好的宏 运行 --> ok.