關閉→
當前位置:知科普>IT科技>怎麼批量修改PPT中的字體,大小,顏色等

怎麼批量修改PPT中的字體,大小,顏色等

知科普 人氣:1.89W
聽很多小夥伴們提到過一個問題,就是修改已經做好的ppt文件時,怎麼樣才能如何批量修改ppt字體大小及顏色,搜索了很多相似的問題,但給出答案都不是很滿意。這裏就給大家分享一下怎麼利用“宏”來批量修改PPT中的字體,大小,顏色等的相關的使用操作吧。

怎麼批量修改PPT中的字體,大小,顏色等

材料/工具

PPT2016(2010及以上的版本即可)

方法

打開一個PPT,裏面的字體,大小,顏色都不是自己需要,這時候就可以通過以下操作批量修改。

怎麼批量修改PPT中的字體,大小,顏色等 第2張

首先點擊【文件】

怎麼批量修改PPT中的字體,大小,顏色等 第3張

進入後選擇【另存為】選項,點擊【桌面】選項(這裏以選擇保存在桌面為例,你可自由選擇)。

怎麼批量修改PPT中的字體,大小,顏色等 第4張

點擊後會彈出一個窗口,在保存時一定要選擇【啟用宏的PowerPoint演示文稿】,因為要使用“宏”功能必須使用【啟用宏的PowerPoint演示文稿】,而且現在大部分PPT都不是這種格式的,這項操作十分必要,請一定要操作一次。

怎麼批量修改PPT中的字體,大小,顏色等 第5張

點開【啟用宏的PowerPoint演示文稿】格式的PPT。

怎麼批量修改PPT中的字體,大小,顏色等 第6張

首先選擇點擊【視圖】,右下方有個【宏】,點擊使用。

怎麼批量修改PPT中的字體,大小,顏色等 第7張

在宏窗口,編輯一個宏名,再點擊【創建】

怎麼批量修改PPT中的字體,大小,顏色等 第8張

首先選中已有的數據。

怎麼批量修改PPT中的字體,大小,顏色等 第9張

然後將代碼複製進文本(注意修改成你需要的文字,字號,顏色)

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 '改成你需要的文字大小
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字顏色
End With
End If
Next
Next
End Sub

怎麼批量修改PPT中的字體,大小,顏色等 第10張

點擊【保存鍵】保存然後退出界面。

怎麼批量修改PPT中的字體,大小,顏色等 第11張

退出後,選擇剛才編輯好的宏名,然後單擊【運行】,即可。

怎麼批量修改PPT中的字體,大小,顏色等 第12張

看,批量修改PPT中的字體,大小,顏色成功。好的,方法分享就到此為止了,希望能對你有所幫助。

怎麼批量修改PPT中的字體,大小,顏色等 第13張
TAG標籤:#批量 #字體 #ppt #