5、如何批量修改ppt字体大小及颜色

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《5、如何批量修改ppt字体大小及颜色》，欢迎阅读！

利用宏;

Sub OED01() '批量修改字体格式、大小和颜色 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 = 20 '改成你需要的文字大小

.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色 End With End If Next Next End Sub

本文来源：https://www.dy1993.cn/tLBK.html