如何修改Powerpoi nt所有文字字体，批量修改ppt字体大小及颜色, 2011-03-16 10:32:53|分类：PPT |标签：字体大小 ppt ot xtrange powerpoint 修改|字号大中小订阅首先，将代码复制到记事本或word中，
然后，打开你需要修改的PPT，
然后创建宏，再运行宏！
即可实现，看图操作吧！
Sub OED01() '批量修改字体格式、大小和颜色
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error R esume Ne xt
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.Text Range
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = "楷体_GB2312" '改成你需要的字体
.Size = 20 '改成你需要的文字大小
.Color.RGB = R GB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色End With
End If
Next
Next
End Sub
//更改具备相同文字区域的ＰＰＴ批量修改（跟据上面的例字整理所得）Sub aa()
'
' 宏由wsqxushui 创建，日期2011-3-16。
'
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error R esume Ne xt
For Each oSlide In ActivePresentation.Slides'遍历所有的幻灯片
Set oShape = oSlide.Shapes("Text Bo x 4")'每个幻灯片中文字区域Set oTxtRange = oSha pe.TextFrame.Text Range'每个区域中文字If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = "宋体" '改成你需要的字体
.Size = 14 '改成你需要的文字大小
.Color.R GB = black '改成你想要的文字颜色
End With
End If
Next
End Sub