排行榜 -

您的位置:首頁 > 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寶藏 版權所有

粵ICP備13028522號

惠州| 吐鲁番| 中卫| 蚌埠| 眉山| 张家口| 张家界| 鄂州| 海西| 百色| 毕节| 扬州| 三沙| 石狮| 扬中| 揭阳| 菏泽| 朔州| 海南海口| 巴中| 五指山| 咸宁| 佳木斯| 临夏| 广安| 陇南| 滕州| 临沧| 石狮| 白银| 新沂| 塔城| 鸡西| 济源| 玉树| 龙口| 洛阳| 澳门澳门| 海西| 铜陵| 安徽合肥| 诸暨| 淮北| 通辽| 江苏苏州| 张北| 鹰潭| 阿克苏| 铜仁| 滕州| 吴忠| 深圳| 霍邱| 青海西宁| 陵水| 库尔勒| 哈密| 潜江| 牡丹江| 汉中| 吴忠| 如皋| 延安| 乐清| 巴彦淖尔市| 武威| 屯昌| 那曲| 阜新| 屯昌| 昌都| 张北| 双鸭山| 庆阳| 三亚| 克拉玛依| 嘉善| 金坛| 莆田| 揭阳| 宝鸡| 图木舒克| 三门峡| 南京| 台北| 泸州| 宿州| 眉山| 抚顺| 定西| 招远| 嘉峪关| 鹤壁| 佳木斯| 鄢陵| 十堰| 莱芜| 东莞| 德清| 保定| 海南| 贺州| 博尔塔拉| 姜堰| 章丘| 武威| 荣成| 驻马店| 秦皇岛| 抚州| 淮北| 延边| 河源| 阳春| 丹东| 阜新| 大庆| 丹东| 广州| 陕西西安| 衢州| 平凉| 海西| 安阳| 黔西南| 灌云| 泗洪| 秦皇岛| 日喀则| 鸡西| 宁国| 伊犁| 甘孜| 蓬莱| 晋江| 梧州| 攀枝花| 溧阳| 深圳| 湖北武汉| 启东| 百色| 新疆乌鲁木齐| 新余| 保定| 新余| 阿拉尔| 宁德| 安庆| 深圳| 济南| 邳州| 如东| 南阳| 扬中| 朔州| 三沙| 眉山| 焦作| 广汉| 定西| 肥城| 黄山| 湛江| 自贡| 黄石| 榆林| 咸阳| 贵州贵阳| 商洛| 镇江| 金昌| 锡林郭勒| 西藏拉萨| 东方| 深圳| 辽宁沈阳| 抚州| 荣成| 乌海| 涿州| 怒江| 基隆| 怀化| 抚州| 泸州| 常州| 玉溪| 曹县| 菏泽| 辽阳| 香港香港| 琼海| 怀化| 台中| 邵阳| 衡水| 公主岭| 武安| 如皋| 青海西宁| 简阳| 株洲| 包头| 安岳| 日喀则| 绵阳| 金昌| 黄南| 日喀则| 朔州| 新沂| 滁州| 晋中| 安顺| 周口| 平凉| 内蒙古呼和浩特| 香港香港| 临沂| 吕梁| 河池| 河北石家庄| 庄河| 伊犁| 瓦房店| 马鞍山| 江西南昌| 齐齐哈尔| 宿迁| 宝鸡| 澄迈| 咸阳| 定安| 淮安| 乐平| 南通| 聊城| 芜湖| 晋城| 惠东| 陇南| 鹰潭| 邹平| 湖南长沙| 四平| 自贡| 佛山| 三沙| 海丰| 吉林长春| 定西| 德宏| 内江| 瓦房店| 枣阳| 博尔塔拉| 平顶山| 新余| 临沂| 许昌| 普洱| 赣州| 阜新| 营口| 怒江| 苍南| 自贡| 南京| 鄂州| 丹阳| 鄢陵| 芜湖| 瓦房店| 丹阳| 中山| 松原| 铁岭| 湛江| 鹤岗| 许昌| 北海| 徐州| 鄢陵| 东台| 张掖| 阳春| 盘锦| 张北| 伊犁| 沛县| 北海| 张北| 崇左| 泰州| 建湖| 朝阳| 招远| 灌南| 余姚|