資源描述：
《如何修改powerpoint所有文字字體》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、如何修改Powerpoint所有文字字體，批量修改ppt字體大小及顏色,??2011-03-1610:32:53
2、??分類：PPT
3、??標(biāo)簽：字體大小??ppt??otxtrange??powerpoint??修改??
4、字號(hào)大中小?訂閱首先，將代碼復(fù)制到記事本或word中，然后，打開你需要修改的PPT，然后創(chuàng)建宏，再運(yùn)行宏！即可實(shí)現(xiàn)，看圖操作吧！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??//更改具備相同文字區(qū)域的ＰＰＴ批量修改（跟據(jù)上面的例字整理所得）Subaa()''宏由wsqxushui創(chuàng)建，日期2011-3-16。'DimoShapeAsShapeDimoSlideAsSlideDimoTxtRangeAsTextRangeOnErrorResumeNextForE
7、achoSlideInActivePresentation.Slides '遍歷所有的幻燈片??SetoShape=oSlide.Shapes("TextBox4") '每個(gè)幻燈片中文字區(qū)域?????????SetoTxtRange=oShape.TextFrame.TextRange '每個(gè)區(qū)域中文字?????????IfNotIsNull(oTxtRange)Then????????WithoTxtRange.Font????????????.Name="宋體"??????'改成你需要的字體???
8、?????????.Size=14??????'改成你需要的文字大小????????????.Color.RGB=black'改成你想要的文字顏色?????????EndWith?????????EndIf??Next??EndSub
