排行榜 -

您的位置:首页?>?PPT新手上路

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

时间:2010-06-17 来源:本站原创 作者:佚名

本人遇到一个问题,就是修改已经做好的ppt文件时,怎么样才能如何批量修改ppt字体大小及颜色,我google了很多相似的问题,但给出答案不是很满意,有高手请赐教,谢谢!

我从网上搜索到另一个代码,
经过运行是可以使用的;
但因为还需要修改颜色
所以我多添加了一个颜色设置
代码如下:

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

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

01.jpga.gif

猜你喜欢更多 >>
我要吐槽
PPT教程推荐
PPTbck体育怎么样推荐

Copyright:2009-2015 pptbz.com Corporation,All Rights Reserved PPT宝藏 版权所有

粤ICP备13028522号