重金悬赏2003PPt如何设置宏，重复改变字体为黑体 字号标题为40正文为60，谢谢

重金悬赏2003PPt如何设置宏，重复改变字体为黑体 字号标题为40正文为60，谢谢

首先，点击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 = "黑体" '改成你需要的字体
.Size = 60 '改成你需要的文字大小
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色
End With
End If
Next
Next
End Sub

然后点击保存按钮，关闭窗口，回到ppt编辑页面。再次点击工具里的宏选项里的宏，选择你刚编辑好的宏，点击运行，这样你ppt中的所有字体都被改变了，想要变成什么样的字体可在代码里修改！

标题文字相对较少可单独选中修改 good luck@！

不明白啊 = =！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息