PPT批量修改公式文字顏色

1、轉(zhuǎn)在PowerPoint中使用宏實現(xiàn)批量修改公式的打印顏色在學(xué)校老師的課件大都是ppt，所以不得不和微軟的東西打交道。我們有一位老師，他的課件中的公式都被他重新著色成了黃色，這樣上課時配著藍色背景，既醒目又看著舒服?？墒俏覀兇蛴〉臅r候才發(fā)現(xiàn)，即使打印時顏色選成純黑白，那寫公式也照樣灰灰、淺淺的，幾乎看不清。一份幻燈片里有無數(shù)的公式，手工修改肯定很累。自己Office水平又比較菜，不知道PowerPoint有什么內(nèi)置功能可以批量修改公式顏色（有人知道的話，請不吝賜教），幸好以前VB用的還好，就在手冊的幫助下，寫了一個宏，最終解決了這個問題。不過費盡周折，歷時三周（當(dāng)然，不是全部用來干這個）。一開

2、始根本不知道解決問題的方向（以下省略走的彎路若干字），后來在瀏覽Shape對象的屬性時發(fā)現(xiàn)了有BlackWhiteMode這個屬性，才知道PowerPoint在純黑白模式打印時是根據(jù)對象的這個屬性來決定打印的顏色。這才找到解決問題的方向?？墒墙酉聛韱栴}又來了，老師為了排版，把很多公式與文字及圖片組合起來，而且有時還不止一層組合，這樣就必須遞歸遍歷來找出其中的公式（如果直接全部打成黑的，很多圖片就會變成一團黑，看不清。）遞歸本來很簡單，我寫了如下的代碼，這也是我后來代碼的原型：原型代碼ThemacrotoexcuteSubReColor（）DimsldAsSlideDimshAsShapeFor

3、EachsldInActivePresentation.SlidesForEachshInsld.ShapesCallReColorSH（sh）NextNextEndSubSubReColorSH(shAsShape)DimsshAsShapeIfsh.Type=msoGroupThenwhentheshapeitselfisagroupForEachsshInsh.GroupItemsReColorSH(ssh)therecursionNextElseIfsh.Type=msoEmbeddedOLEObjectThenrecolortheequationIfLeft(sh.OLEFormat

4、.ProgID,8)=EquationThensh.BlackWhiteMode=msoBlackWhiteBlackEndIfEndIfEndSub但VBA貌似不能傳遞Shape對象作為參數(shù)。所以不得不花費功夫用數(shù)組作堆棧并自行模擬遞歸過程,下面是最終代碼：最終代碼VBAcannotpassShapeintoafunction,soglobalvarisusedPublicshAsShapeThemacrotoexcuteSubReColor()DimsldAsSlideForEachsldInActivePresentation.SlidesForEachshInsld.ShapesCal

5、lReColorSHNextNextEndSubSubReColorSH()DimipAsIntegerpointtothetopoftheistackDimspAsIntegerpointtothetopoftheshapestackDimistk()AsIntegertheistack,usingdynamicarrayDimsstk()AsShapetheShapestack,usingdynamicarrayDimssizeAsIntegerthesizeofbothstacksssize=10ReDimistk(ssize)ReDimsstk(ssize)ip=0sp=0DimiAs

6、IntegerL2:Ifsh.Type=msoGroupTheni=1L1:pushS(sh)sp=sp+1IfspssizeThenssize=ssize+1ReDimPreserveistk(ssize)ReDimPreservesstk(ssize)EndIfSetsstk(sp)=shpushI(i)ip=ip+1istk(ip)=iSetsh=sh.GroupItems(i)GoToL2L3:popI(i)i=istk(ip)ip=ip-1popS(sh)Setsh=sstk(sp)sp=sp-1Ifi0ThenGoToL3EndSub在PowerPoint2003下運行通過。（使用時只要隨便新建一個宏，把它自動生成的代碼全刪