前言

很多人在打印PPT时会出现,部分文字出现在PPT之外而无法完整打印,当然如果PPT页数很少,一页一页的改是完全可行的,但当你面临几百页的PPT时,手动更改就不现实了,这里我们使用宏进行意见更改

操作方式

打开PowerPoint点击视图,点击宏出现如下界面

自定义宏名然后点击创建,

在代码区填写如下代码

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 = 24       '改为所需的文字大小
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成想要的文字颜色,用RGB参数表示。这里代表黑色
          End With
          End If
   Next
   Next
End Sub

保存并退出,再次点击宏,选择刚刚定义的宏,点击执行,这样PPT中所有的页面字体都已经同步了