如何一次性更改ppt中的全部字體(編輯修改稿)
2025-09-01 05:21 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 量修改ppt中所有字的字體顏色本篇文章將會(huì)告訴你，怎樣利用office中的宏，批量修改PPT中所有字的字體、顏色、字號(hào)、背景等。 今天我一朋友來找我，說他想打印一個(gè)PPT，于是想把它變成白底黑字，并保存。我翻了半天，發(fā)現(xiàn)office本身是沒有這個(gè)功能的，于是我終于找到了一個(gè)方法來實(shí)現(xiàn)。（以下演示版本為Office2007，其他版本的類似）背景模板的處理打開幻燈片母板，選擇插入新的幻燈片母板，得到一個(gè)空白的母板。然后刪除掉原來的母板。還原普通視圖，這樣就去掉了幻燈片的模板背景。利用宏批量改變字體在視圖中選擇宏（早期版本可能要在插入中找），輸入任意的宏名，點(diǎn)擊創(chuàng)建。 在新代碼窗口中，刪除原來的內(nèi)容，并復(fù)制以下內(nèi)容，然后運(yùn)行宏（若不能運(yùn)行，請(qǐng)看下面）。此時(shí)工作已經(jīng)全部完成了。Sub myfont() Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next 39。 之后的代碼就算出錯(cuò)也會(huì)繼續(xù)執(zhí)行For Each oSlide In ActivePresentation . Slides
oSlide . FollowMasterBackground = msoTrue 39。 使用幻燈片母版背景
For Each oShape In oSlide . Shapes39。 文本框字體設(shè)置
With oShape . TextFrame . TextRange . Font
39。 .Name = 宋體
39。 .Size = 20
. Color . RGB = RGB(Red : = 0 , Green : = 0 , Blue : = 0 )
39。 .Bold = msoFalse 39。粗
. Italic = msoFalse 39。 斜
. Underline = msoFalse 39。 下劃線
End With
oShape . Fill . Background 39。 文本框背景色用幻燈背景填
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1