如何修改powerpoint所有文字字体

《如何修改powerpoint所有文字字体》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、如何修改Powerpoint所有文字字体，批量修改ppt字体大小及颜色,  2011-03-1610:32:53

2、  分类：PPT

3、  标签：字体大小  ppt  otxtrange  powerpoint  修改  

4、字号大中小 订阅首先，将代码复制到记事本或word中，然后，打开你需要修改的PPT，然后创建宏，再运行宏！即可实现，看图操作吧！SubOED01()  '批量修改字体格式、大小和颜色DimoShapeAsShapeDimoSlideAsSlideDimoTxtRangeAsTextRan

5、geOnErrorResumeNextForEachoSlideInActivePresentation.Slides  ForEachoShapeInoSlide.Shapes      SetoTxtRange=oShape.TextFrame.TextRange      IfNotIsNull(oTxtRange)Then      WithoTxtRange.Font        .Name="楷体_GB2312"    '改成你需要的字体        .Size=20    '改成你需要

6、的文字大小        .Color.RGB=RGB(Red:=255,Green:=0,Blue:=0)'改成你想要的文字颜色      EndWith      EndIf  Next  NextEndSub  //更改具备相同文字区域的ＰＰＴ批量修改（跟据上面的例字整理所得）Subaa()''宏由wsqxushui创建，日期2011-3-16。'DimoShapeAsShapeDimoSlideAsSlideDimoTxtRangeAsTextRangeOnErrorResumeNextForE

7、achoSlideInActivePresentation.Slides　'遍历所有的幻灯片  SetoShape=oSlide.Shapes("TextBox4")　'每个幻灯片中文字区域         SetoTxtRange=oShape.TextFrame.TextRange　　'每个区域中文字         IfNotIsNull(oTxtRange)Then        WithoTxtRange.Font            .Name="宋体"      '改成你需要的字体   

8、         .Size=14      '改成你需要的文字大小            .Color.RGB=black'改成你想要的文字颜色         EndWith         EndIf  Next  EndSub