排行榜 -

AG代理
您的位置:AG代理 > PPT新手上路

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

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

AG代理,  “美国有一个长期的阴谋,试图统治叙利亚,然后将其统治扩大到整个(中东)地区……这对所有民族和国家都是一个威胁,尤其是对伊朗以及俄罗斯,应以明智和更密切的交往来挫败这些计划。”外媒24日报道时特别强调哈梅内伊与普京在德黑兰会谈时的这句话。

  中芯国际第三季度额为3.689亿美元,比上一季度的3.614亿美元增长2.1%,比去年同期的3.1亿美元增长19.0%。白手起家好项目  寻常人都把“友谊的小船说翻就翻”挂在嘴上,更何况总是被镁光灯包围活在大众视线下的们呢?行驶在娱乐圈这片深不见底的汪洋大海上的友谊小船,有的说翻就翻了,有的虽然死也不翻,但是也不成爱情的巨轮,令人惋惜。们开船的技术到底怎么样?让我们好好来看一看吧。

本人遇到一个问题,就是修改已经做好的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

猜你喜欢AG代理更多 >>
我要吐槽
PPT教程推荐
PPT模板推荐

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

粤ICP备13028522号

耀才证券:科恩突辞职美期急跌 港股续于30500点上落 收盘:美股收跌道指跌200点 本周三大股指均录得涨幅 莎娃满意目前竞技状态 首谈小威是否应列温网种子 大连高层住宅掉两啤酒瓶致多人受伤 一人脚筋划断 7岁双胞胎女童校保安室遭性侵:老师你为何不帮我? 加拿大华人女子失踪两个月 警方派蛙人下水搜证 进球gif-约旦女足失误送礼 李影推射破门5-1! 欧洲双料MVP选秀要跌出前3!诺天王也许能捡漏 苹果向印度政府提出替代方案 避免iPhone被退网 媒体评考上北大女孩感谢贫穷:你只需感谢你自己 佩莱精神感染鲁能全队 王大雷:感谢低调朴实的李霄鹏 京媒嘉宾:国安绝境拼下一分 球迷没理由不爱他们
谷歌四千员工抗议军用AI技术开发 有人辞职抗议 调查-上港亚冠出局主要原因 中超更看好谁夺冠? 法铁内部账单被披露:罢工3月损失7.9亿欧元 利好!火箭防守尖兵11月中复出 已能参加训练 切尔西苦苦苦!变身没牙老虎 两大名刀争着比烂 穆里尼奥不满曼联阵容!要求董事会今夏巨资买人 男子大巴上情绪激动两次抢夺方向盘 司机及时应对 韩国天王再夺亚洲金球奖 恐被迫回国服兵役 温格:我离任=忠诚时代的终结 改变英法敌对情绪 男子以为警察五一放假盗窃被抓:我还专挑假日加班 黄雅琼/于小含:配合时间较短 盼慢慢提升状态 青少年体育活动促进计划印发 发展青少年足球
杜特尔特为“宾汉隆起”科考开绿灯 称不针对中国 帕托陷传闻后获索萨力挺:他能力很强 能进更多球 甘肃16亿扶贫路事件最新进展:各方4日前进场整改 担忧投资者利益受损 欧盟紧急召开有关伊朗问题会议 马斯克平民版Model 3梦碎 特斯拉只好推贵族车止血 张盛仁任湖北省科技厅厅长 刘艳红任省人社厅厅长 巴基斯坦数千官兵赴沙特任教官 指导反恐山区作战 全国政协委员易建强:应在机场高铁站设网约车通道 刘伟重回马尼拉 27年前在这里获亚洲杯女单冠军 笨蛋也能年赚100万 亩收益10万的种植品种 加盟店排行榜 马云说未来赚钱的行业 AG代理