怎么批量修改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张