排行榜 -

您的位置:幸运飞艇平台app > 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教程推荐
PPT模板推荐

Copyright:2009-2015 pptbz.com Corporation,All Rights Reserved PPT宝藏 幸运飞艇平台appwww.bjztdh.com版权所有

粤ICP备13028522号

分享到:QQ空间新浪微博腾讯微博人人网微信

友情链接:幸运飞艇如何计算6码  幸运飞艇怎样玩才赚钱  幸运飞艇技巧多年高手实力  幸运飞艇下载  幸运飞艇彩票正规吗  幸运飞艇客服  幸运飞艇技巧图片  幸运飞艇怎么玩才能赢  幸运飞艇怎么样才能赢  幸运飞艇代理