如何一次性更改ppt中的全部字體.doc

.For personal use only in study and research; not for commercial use如何一次性更改ppt中的全部字體？ 如何一次性更改ppt中的全部字體？起初這個(gè)我也不知道，也是在百度上搜索得來的。非常感謝大家！當(dāng)然，我也要把這樣的好東西共享一下，為大家節(jié)約時(shí)間！ 先看第一種方法。一般高手都是用這種方法的，我不會(huì)用！點(diǎn)擊ppt中的工具里的宏選項(xiàng)里的宏。然后輸入你要?jiǎng)?chuàng)建的宏名點(diǎn)擊創(chuàng)建按鈕，在出現(xiàn)的頁面中將下面一段代碼覆蓋掉原先的代碼：Sub OED01()批量修改字體格式、大小和顏色Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = 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 NextEnd Sub然后點(diǎn)擊保存按鈕，關(guān)閉窗口，回到ppt編輯頁面。再次點(diǎn)擊工具里的宏選項(xiàng)里的宏，選擇你剛編輯好的宏，點(diǎn)擊運(yùn)行，這樣你ppt中的所有字體都被改變了，想要變成什么樣的字體可在代碼里修改！第二種方法，簡(jiǎn)單易懂，而且好操作！在ppt上面的工具條中，選擇“視圖”，然后“普通視圖”，然后再幻燈片的左邊，會(huì)出現(xiàn)一欄。在這一欄的上面有個(gè)選項(xiàng)“大綱/幻燈片”，點(diǎn)擊“大綱”，這個(gè)時(shí)候，你激活其中任意一張幻燈片，全選，然后改到自己想改的格式就可以了。如何將PPT里的文字全部改變字體顏色， PPT里是黑底模板白色字體，想改成黑色字體白色模板打印，如何全部改掉，不要一個(gè)一個(gè)的改。一次性修改所有ppt頁面中字體的顏色和大小有朋友問我如何一次性修改所有ppt頁面中字體的顏色和大小，由于powerpoint沒有現(xiàn)成的菜單，今天索性寫了一個(gè)宏，水平有限，不足之處請(qǐng)大家指正！Sub Macro1()For i = 1 To num = i = Then num = num - 1End IfFor j = 1 To num Index:=i aaa = If InStr(1, aaa, text box) 0 Then = 20 改成你想要的字體大小 = RGB(Red:=255, Green:=0, Blue:=0) 改成你想要的字體顏色 End If If InStr(1, aaa, Rectangle) 0 Then = 20 改成你想要的字體大小 = RGB(Red:=255, Green:=0, Blue:=0) 改成你想要的字體顏色 End IfNext jNext iEnd Sub答案補(bǔ)充 格式-幻燈片設(shè)計(jì)-“幻燈片設(shè)計(jì)-配色方案” 選一個(gè)你要的顏色 文字和符號(hào)都會(huì)變顏色不過貌似對(duì)PPT背景也有影響 你先試下 不行我再研究研究在 視圖母版幻燈片母版 里面改。批量修改ppt中所有字的字體顏色本篇文章將會(huì)告訴你，怎樣利用office中的宏，批量修改PPT中所有字的字體、顏色、字號(hào)、背景等。 今天我一朋友來找我，說他想打印一個(gè)PPT，于是想把它變成白底黑字，并保存。我翻了半天，發(fā)現(xiàn)office本身是沒有這個(gè)功能的，于是我終于找到了一個(gè)方法來實(shí)現(xiàn)。（以下演示版本為Office2007，其他版本的類似）1、背景模板的處理打開幻燈片母板，選擇插入新的幻燈片母板，得到一個(gè)空白的母板。然后刪除掉原來的母板。還原普通視圖，這樣就去掉了幻燈片的模板背景。2、利用宏批量改變字體在視圖中選擇宏（早期版本可能要在插入中找），輸入任意的宏名，點(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 之后的代碼就算出錯(cuò)也會(huì)繼續(xù)執(zhí)行For Each oSlide In ActivePresentation . Slides oSlide . FollowMasterBackground = msoTrue 使用幻燈片母版背景 For Each oShape In oSlide . Shapes 文本框字體設(shè)置 With oShape . TextFrame . TextRange . Font .Name = 宋體 .Size = 20 . Color . RGB = RGB(Red : = 0 , Green : = 0 , Blue : = 0 ) .Bold = msoFalse 粗 . Italic = msoFalse 斜 . Underline = msoFalse 下劃線 End With oShape . Fill . Background 文本框背景色用幻燈背景填充 oShape . TextFrame . TextRange . IndentLevel = 0 表格字體設(shè)置 oShape . Table . Background . Fill . BackColor . RGB = RGB(Red : = 255 , Green : = 255 , Blue : = 255 ) 底色 For i = 1 To oShape . Table . Rows . Count For j = 1 To oShape . Table . Columns . Count oShape . Table . Cell(i, j) . Shape . Fill . BackColor . RGB = RGB(Red : = 255 , Green : = 255 , Blue : = 255 ) With oShape . Table . Cell(i, j) . Shape . TextFrame . TextRange . Font .Name = 宋體 .Size = 20 . Color . RGB = RGB(Red : = 0 , Green : = 0 , Blue : = 0 ) .Bold = msoFalse 粗 . Italic = msoFalse 斜 . Underline = msoFalse 下劃線 End With Next j Next iNext NextEnd Sub注意： 1.以上代碼相應(yīng)部分可以根據(jù)需要自行修改 2.運(yùn)行后可能仍有部分是彩色。如：表格的內(nèi)嵌，項(xiàng)目符號(hào)編號(hào)，圖片等。前兩項(xiàng)仍然需要手動(dòng)修改顏色。不能運(yùn)行宏的解決辦法點(diǎn)擊左上角菜單，選擇PPT選項(xiàng)信任中心-宏設(shè)置，選中啟用所有和信任對(duì)VBA的訪問，確定。然后重啟PPT即可。.僅供個(gè)人用于學(xué)習(xí)、研究；不得用于商業(yè)用途。For personal use only in study and research; not for commercial use.Nur fr den persnlichen fr Studien, Forschung, zu kommerziellen Zwecken verwendet werden.Pour l tude et la recherche uniquement des fins personnelles; pas des fins commerciales. , , . 以下無正文 僅供個(gè)人用于學(xué)習(xí)、研究；不得用于商業(yè)用途。For personal use only in study and research; not for commercial use.Nur fr den