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

ericliu7 发表于: 2008-9-08 14:52 来源: 扑奔PPT网

ericliu7 发表于 2008-9-08 14:54:41

这个一个答案说修改ppt中宏代码，但我不知道如何加载？

Sub Macro1()
For i = 1 To ActiveWindow.Selection.SlideRange.SlideNumber
    num = ActiveWindow.Selection.SlideRange.Shapes.Count
If i = ActiveWindow.Selection.SlideRange.SlideNumber Then
    num = num - 1
End If
For j = 1 To num
   
    ActiveWindow.View.GotoSlide Index:=i
    aaa = ActiveWindow.Selection.SlideRange.Shapes(j).Name
    If InStr(1, aaa, "text box") > 0 Then
    ActiveWindow.Selection.SlideRange.Shapes(j).Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 20 '改成你想要的字体大小
    ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的字体颜色
    End If
    If InStr(1, aaa, "Rectangle") > 0 Then
    ActiveWindow.Selection.SlideRange.Shapes(j).Select
    ActiveWindow.Selection.TextRange.Font.Size = 20 '改成你想要的字体大小
    ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的字体颜色
    End If
Next j
Next i
End Sub

satsuki 发表于 2008-9-08 16:02:40

我也关心这个问题..每次都要逐张修改

昆仑草 发表于 2008-9-08 19:07:07

我也同样关注这个恼人的问题。

nnxx13 发表于 2008-9-09 09:13:16

哦，不会啊，每次都是一页页的修改，好麻烦

168coco 发表于 2008-9-09 09:18:48

唯有在母版中预先设定，这样可以稍有帮助

seo4587 发表于 2008-9-09 09:37:21

2#中的代码在运行时似乎只能修改一页；
我从网上搜索到另一个代码，
经过运行是可以使用的；
但因为还需要修改颜色
所以我多添加了一个颜色设置
代码如下：

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

[ 本帖最后由 seo4587 于 2008-9-9 10:13 编辑 ]

seo4587 发表于 2008-9-09 10:16:17

针对很多朋友对“宏”的了解较少
给出一个示范教程吧！
需要注意的是，
采用宏的课件打开的使用
会弹出一个对话框
请选择中间的“使用宏”
否则无法使用宏进行编辑！

首先，将代码复制到记事本或word中，
然后，打开你需要修改的PPT，
然后创建宏，再运行宏！
即可实现，看图操作吧！

 

[ 本帖最后由 seo4587 于 2008-9-9 10:18 编辑 ]

zheng315 发表于 2008-9-09 11:49:22

没有什么简便方法 吗？确实很烦，一页一页改。。。。

ericliu7 发表于 2008-9-09 14:56:48

非常感谢很帅很拉风的帮助，谢谢啦，我先试试看，不明白再请教。

jx_nana 发表于 2008-9-09 23:39:07

也一样疑惑的.谢谢了

昆仑草 发表于 2008-9-10 07:00:11

非常感谢SEO的讲解，下将课件下载了。晚上仔细琢磨练习一下。只有通过自己的实践才能掌握。

崇拜痞子 发表于 2010-7-10 22:17:40

本人也遇到这样的问题  高手再讲清楚 点啦     非常感谢啊

yzb8000 发表于 2011-5-30 19:09:55

VB开发的Office插件，可以批量地设置PPT中所有文本的字体，字号，颜色。可以分别修改中文和英文字体。提升效率，美化文档。
请到下载最新版

[ 本帖最后由 yzb8000 于 2011-8-3 23:20 编辑 ]

飘荡的风 发表于 2011-5-30 19:25:29

在ppt中随意录制一个宏，然后修改成你找到的宏。
最后——执行宏。（这一步可以再ppt中做一个按钮，去执行宏）

404122732 发表于 2012-2-03 14:14:49

谢谢分享，这个问题也是已经困扰了我很久了