• 川藏兵站部官兵在执行任务中传播党的声音 2019-11-09
  • 家电促销:50英寸彩电成主角 2019-11-09
  • 在战火中诞生的党中央机关报(连载五) 2019-11-05
  • 国台办:两岸关系好 台湾同胞才会好 2019-11-05
  • 非遗保护,还须多些“契约精神”--旅游频道 2019-10-27
  • 【学习时刻】北京大学发展经济学系主任曹和平:中央经济工作会议具有全球视野 2019-10-18
  • (原创)取消“份子钱”是出租车改革必须迈出的一步 2019-10-14
  • 人民日报创刊七十周年感想 2019-10-12
  • 欧洲为何突然在南海动作频频?俄媒:因为他们弱小 2019-10-12
  • 延不延迟退休应取决于这个岗位是否后继有人,如果后继者正排着队等待入职,就不能延迟,如果某岗位后继乏人,才需延迟。尤其“用税者岗位”是有限的社会资源,新生 2019-10-08
  • 中央环保督察“回头看” 发现两起虚假整改案例 2019-10-08
  • 榕城监狱及时调解服刑人员家属建房纠纷 2019-10-04
  • 《中国新说唱》开始全新录制 融合传统文化元素 2019-10-01
  • 西门子展示新型高铁列车,曾向中国“漫天要价” 2019-09-29
  • 观察:激发乡村振兴的巾帼力量 2019-09-24
  • 排行榜 -

    您的位置:热火2019 > PPT新手上路

    热火新款球衣:批量修改ppt字体大小及颜色

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

    热火2019 www.tacof.net 本人遇到一个问题,就是修改已经做好的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 www.tacof.net Corporation,All Rights Reserved PPT宝藏 版权所有

    粤ICP备13028522号

  • 川藏兵站部官兵在执行任务中传播党的声音 2019-11-09
  • 家电促销:50英寸彩电成主角 2019-11-09
  • 在战火中诞生的党中央机关报(连载五) 2019-11-05
  • 国台办:两岸关系好 台湾同胞才会好 2019-11-05
  • 非遗保护,还须多些“契约精神”--旅游频道 2019-10-27
  • 【学习时刻】北京大学发展经济学系主任曹和平:中央经济工作会议具有全球视野 2019-10-18
  • (原创)取消“份子钱”是出租车改革必须迈出的一步 2019-10-14
  • 人民日报创刊七十周年感想 2019-10-12
  • 欧洲为何突然在南海动作频频?俄媒:因为他们弱小 2019-10-12
  • 延不延迟退休应取决于这个岗位是否后继有人,如果后继者正排着队等待入职,就不能延迟,如果某岗位后继乏人,才需延迟。尤其“用税者岗位”是有限的社会资源,新生 2019-10-08
  • 中央环保督察“回头看” 发现两起虚假整改案例 2019-10-08
  • 榕城监狱及时调解服刑人员家属建房纠纷 2019-10-04
  • 《中国新说唱》开始全新录制 融合传统文化元素 2019-10-01
  • 西门子展示新型高铁列车,曾向中国“漫天要价” 2019-09-29
  • 观察:激发乡村振兴的巾帼力量 2019-09-24
  • 10日本性感美女 可以读小说赚钱的软件下载 现金版两人斗地主 老北京pk赛车是不是官网 三上悠亚番号合集 靠电脑就能赚钱的项目 大赢家足球即时比分90 彩霸王綜合资料168 青海十一选五中奖规则 甘肃快三走势图 北京pk赛车开奖历史全天 老时时彩 亿游国际app下载 车模美女超清壁纸桌面 日本美女AV婷婷一本道 梦幻西游最赚钱副本排行