一键批量修改PPT所有页面的字体样式、大小和颜色的方法

上方下方有自助buy链接，自助下载，请结合自己的实际参考适用，下面有目录或者内容说明，请核对。

pay后自动有网盘链接(密码请复制放进去)，电脑下载非常方便，如果不会下载，有问题，不用加好友就可以联系：

或者加wei信zjxinhong2007，如有事没响应，或者+另一客服 zjnbwz2019 直接复制网页标题问我们

owerPoint有这样一个限制：我们不能全部选中所有的PPT页面进而如上面一页PPT一般一键设置字体样式、大小、颜色。因为当我们按住Ctrl+A选中全部PPT页面时，我们会发现字体调节等功能是灰色的，即不可设置参数状态。

宏：

Sub PPT字体设置()
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

免责声明:版本的电子素材均通过网络等公开合法渠道获取，版权归原出版社所有，如认为行为侵权、请立即通知我们删除。价格只是本站收集、整理加工该资料及本站运营所必须的费用等支付的适度补偿。谢谢!本站不对所涉及的版权负法律责任。

敬请知悉:由于资料为可复制性的电子文档数据资料，请仔细查看商品内容介绍页，售后，均不作退款换货处理。