Office2007 PPT 宏修改文字颜色

最新推荐文章于 2025-02-28 13:53:39 发布

南京_杨文

最新推荐文章于 2025-02-28 13:53:39 发布

阅读量4.4k

点赞数 1

分类专栏： Windows技术

本文链接：https://blog.csdn.net/japanstudylang/article/details/72471635

版权

本文介绍如何利用Office2007 PPT的宏功能，高效地将大量桔红色文字批量改为黑色。通过录制宏并编写代码，可以避免手动逐页修改，大大节省工作时间。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Office2007 PPT 宏

原来的ppt文字不是黑色的，通过宏将该ppt文件中的100多页ppt文字改为黑色（注意是将某个颜色的字，比如桔红色的字改为黑色，不是所有文字变成黑色）。如果手动修改颜色，工作量太大，偷个懒，写个程序，让ppt中的这种文字颜色统一改变成黑色。

PowerPoint 2007 隐藏的功能录制宏

使用快捷键 Alt+T -> M -> R 能够调出隐藏的功能录制宏
再使用一次 Alt+T -> M -> R 停止录制

ppt对操作的录制很有限，例如更改文本框位置、字体改变等动作不能被捕捉到

宏代码如下：

Sub yw()
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 = 18                                         '改为所需的文字大小