當前位置:生活全書館 >

IT科技

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

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

聽很多小夥伴們提到過一個問題,就是修改已經做好的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張
標籤: 批量 字型 ppt
  • 文章版權屬於文章作者所有,轉載請註明 https://shqsg.com/dianzi/v4l489.html