想改圖片、自選圖形、藝術(shù)字或者文本框的陰影顏色？先選中那個(gè)對(duì)象。然后在繪圖工具欄點(diǎn)陰影樣式，再點(diǎn)陰影設(shè)置。接著點(diǎn)陰影顏色旁邊的小箭頭。要是想恢復(fù)默認(rèn)，就直接點(diǎn)自動(dòng)；想用配色方案里的顏色，就在自動(dòng)下面選一個(gè)現(xiàn)成的。如果想要的顏色不在里面，就點(diǎn)其他陰影顏色，跳出來(lái)窗口后，可以在標(biāo)準(zhǔn)里選個(gè)顏色，或者去自定義自己調(diào)個(gè)喜歡的顏色，弄好了點(diǎn)確定就行啦～
-
-
依次點(diǎn)擊 設(shè)計(jì)－－主題區(qū)域的“顏色”－－新建主題顏色，其中就有修改超鏈接、已訪問(wèn)和超鏈接顏色。
-
首先，將代碼復(fù)制到記事本或word中， 然后，打開(kāi)你需要修改的PPT， 然后創(chuàng)建宏，再運(yùn)行宏! 即可實(shí)現(xiàn)，看圖操作吧! Sub OED01() '批量修改字體格式、大小和顏色 Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = oShape.TextFrame.TextRange If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "楷體_GB2312" '改成你需要的字體 .Size = 20 '改成你需要的文字大小 Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides '遍歷所有的幻燈片 Set oShape = oSlide.Shapes("Text Box 4") '每個(gè)幻燈片中文字區(qū)域 Set oTxtRange = oShape.TextFrame.TextRange '每個(gè)區(qū)域中文字 If Not IsNull(oTxtRange) Then With oTxtRan滑ge.Font .Name = "宋體" '改成你需要的字體 .Size = 14 '改成你需要的文字大小 .Color.RGB = black '改成你想要的文字顏色End WithEnd IfNextEnd Sub
-
選取要更改的圖片 （圖片：可以取消組合并作為兩個(gè)或多個(gè)對(duì)象操作的文件（如圖元文件），或作為單個(gè)對(duì)象（如位圖）的文件。）、自選圖形 （自選圖形：一組現(xiàn)成的形狀，包括如矩形和圓這樣的基本形狀，以及各種線條和連接符、箭頭總匯、流程圖符號(hào)、星與旗幟和標(biāo)注等。）、藝術(shù)字 （藝術(shù)字：使用現(xiàn)成效果創(chuàng)建的文本對(duì)象，并可以對(duì)其應(yīng)用其他格式效果。）或文本框 （文本框：一種可移動(dòng)、可調(diào)大小的文字或圖形容器。使決礎(chǔ)往件業(yè)亮議聽(tīng)句煤景用文本框，可以在一頁(yè)上放置數(shù)個(gè)文字塊，或使文字按與文檔中其他文字不同的方向排列。）。
在“繪圖”工具欄上，單擊“陰影樣式”，再單擊“陰影設(shè)置”。
在“陰影設(shè)置”工具欄上，單擊“陰影顏色” 旁的箭頭。
請(qǐng)執(zhí)行下列操作之一：
若要將陰影顏色更改回其默認(rèn)設(shè)置，請(qǐng)單擊“自動(dòng)”。
若要更改為配色方案中的某種顏色，請(qǐng)單擊“自動(dòng)”之下的一種顏色。
若要更改為配色方案中未顯示的一種顏色，請(qǐng)單擊“其他陰影顏色”。在“標(biāo)準(zhǔn)”選項(xiàng)卡上單擊所需的顏色，或單擊“自定義”選項(xiàng)卡以調(diào)出自己的顏色，再單擊“確定”。 -
首先，將代碼復(fù)制到記事本或word中， 然后，打開(kāi)你需要修改的PPT， 然后創(chuàng)建宏，再運(yùn)行宏！ 即可實(shí)現(xiàn)，看圖操作吧！ Sub OED01() '批量修改字體格式、大小和顏色 Dim oShape As Shape Dim oSlide As Slide Dim 使重生待衡oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = oShape.TextFrame.TextRange If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "楷體_GB2312" '改成你需要的字體 .Size = 20 '改成你需要的文字大小 D于尼吸紅注劉考揮偉留im oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides '遍歷所有的幻燈片 Set oShape = oSlide.Shapes("Text Box 4") '每個(gè)幻燈片中文字區(qū)域 Set oTxtRange = oShape.TextFrame.TextRange '每個(gè)區(qū)域中文字 If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "宋體" '改成你需要的字體 .Size = 14 '改成你需要的文字大小 .Color.RGB = black '改成你想要的文字顏色End WithEnd IfNextEnd Sub
沒(méi)找到滿意答案？去問(wèn)豆包AI智能助手
最新回答 更多>
相關(guān)問(wèn)答
- EXO的吳世勛和鹿晗 誰(shuí)更帥啊？？？
- 金杯與榮耀——響規(guī)白門(mén)密討98世界杯記錄片中巴士余靜略刑利照善金四西VS法國(guó)的背景音樂(lè)名稱(chēng)是什么，Thanks
- oppo手機(jī)進(jìn)入fastboot腫么退出
- 為何手機(jī)會(huì)自動(dòng)播放音樂(lè)還找不到后臺(tái)？
- 小米手機(jī)如何刷魅族flyme
- 為何我用ultraios系統(tǒng)寫(xiě)入到U盤(pán)會(huì)不成功
- 電腦的exe文件都集中在哪里？
- 藍(lán)牙標(biāo)志后邊的圖標(biāo)是啥？
- IDE通道變成Multi-Word DMA Mode 2，怎樣改為Ultra DMA Mode 6？
- 如何隱藏應(yīng)用軟件vivo手機(jī)Y3
- 小米手機(jī)藍(lán)牙沒(méi)有了？
- ML6N2CH/A是蘋(píng)果手機(jī)嘛
- 手機(jī)相片怎么加音樂(lè) 相片加音樂(lè)方法
- 音樂(lè)文檔是什么？
- 小米手機(jī)的鎖屏腫么關(guān)音樂(lè)呢?