想改圖片、自選圖形、藝術字或者文本框的陰影顏色？先選中那個對象。然后在繪圖工具欄點陰影樣式，再點陰影設置。接著點陰影顏色旁邊的小箭頭。要是想恢復默認，就直接點自動；想用配色方案里的顏色，就在自動下面選一個現成的。如果想要的顏色不在里面，就點其他陰影顏色，跳出來窗口后，可以在標準里選個顏色，或者去自定義自己調個喜歡的顏色，弄好了點確定就行啦～
-
-
依次點擊 設計－－主題區域的“顏色”－－新建主題顏色，其中就有修改超鏈接、已訪問和超鏈接顏色。
-
首先，將代碼復制到記事本或word中， 然后，打開你需要修改的PPT， 然后創建宏，再運行宏! 即可實現，看圖操作吧! 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") '每個幻燈片中文字區域 Set oTxtRange = oShape.TextFrame.TextRange '每個區域中文字 If Not IsNull(oTxtRange) Then With oTxtRan滑ge.Font .Name = "宋體" '改成你需要的字體 .Size = 14 '改成你需要的文字大小 .Color.RGB = black '改成你想要的文字顏色End WithEnd IfNextEnd Sub
-
選取要更改的圖片 （圖片：可以取消組合并作為兩個或多個對象操作的文件（如圖元文件），或作為單個對象（如位圖）的文件。）、自選圖形 （自選圖形：一組現成的形狀，包括如矩形和圓這樣的基本形狀，以及各種線條和連接符、箭頭總匯、流程圖符號、星與旗幟和標注等。）、藝術字 （藝術字：使用現成效果創建的文本對象，并可以對其應用其他格式效果。）或文本框 （文本框：一種可移動、可調大小的文字或圖形容器。使決礎往件業亮議聽句煤景用文本框，可以在一頁上放置數個文字塊，或使文字按與文檔中其他文字不同的方向排列。）。
在“繪圖”工具欄上，單擊“陰影樣式”，再單擊“陰影設置”。
在“陰影設置”工具欄上，單擊“陰影顏色” 旁的箭頭。
請執行下列操作之一：
若要將陰影顏色更改回其默認設置，請單擊“自動”。
若要更改為配色方案中的某種顏色，請單擊“自動”之下的一種顏色。
若要更改為配色方案中未顯示的一種顏色，請單擊“其他陰影顏色”。在“標準”選項卡上單擊所需的顏色，或單擊“自定義”選項卡以調出自己的顏色，再單擊“確定”。 -
首先，將代碼復制到記事本或word中， 然后，打開你需要修改的PPT， 然后創建宏，再運行宏！ 即可實現，看圖操作吧！ 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") '每個幻燈片中文字區域 Set oTxtRange = oShape.TextFrame.TextRange '每個區域中文字 If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "宋體" '改成你需要的字體 .Size = 14 '改成你需要的文字大小 .Color.RGB = black '改成你想要的文字顏色End WithEnd IfNextEnd Sub
最新回答 更多>
相關問答
- EXO的吳世勛和鹿晗 誰更帥啊？？？
- 金杯與榮耀——響規白門密討98世界杯記錄片中巴士余靜略刑利照善金四西VS法國的背景音樂名稱是什么，Thanks
- oppo手機進入fastboot腫么退出
- 為何手機會自動播放音樂還找不到后臺？
- 小米手機如何刷魅族flyme
- 為何我用ultraios系統寫入到U盤會不成功
- 藍牙標志后邊的圖標是啥？
- 電腦的exe文件都集中在哪里？
- IDE通道變成Multi-Word DMA Mode 2，怎樣改為Ultra DMA Mode 6？
- 如何隱藏應用軟件vivo手機Y3
- 小米手機藍牙沒有了？
- 手機相片怎么加音樂 相片加音樂方法
- 音樂文檔是什么？
- 小米手機的鎖屏腫么關音樂呢?
- 怎么取消華為手機中已經配對的藍牙