【ppt怎么把所有字体变窄】PPT提示：批量修改PPT字体大小和颜色

很多小伙伴在修改已经创建的PPT文件时，如何大量修改PPT字体的大小和颜色，Google问了很多类似的问题，但答案并不令人满意。后来在网上搜索了其他代码。

运营后可以使用。

可以大量修改字体格式、大小和颜色

代码如下：

“Sub OED01()”大量修改字体格式、大小和颜色

Dim oShape As Shape

Dim oSlide As Slide

Dim oTxtRange As TextRange

On Error Resume Next

For Each oSlide In Ac

For Each oShape In oSlide。Shapes

Set oTxtRange=oS

If Not IsNull(oTxtRange) Then

With oTx

.将Name='楷体_GB2312 ' '更改为所需字体

.size=20’更改为所需的文本大小

.color.rgb=RGB (red :=255，green :=0，blue :=0)’更改为所需的文本颜色

End With

End If

next

next

End Sub

以很多朋友为对象，对“宏”知之甚少

请给我一个示范教程！

需要注意的是，

启用宏课件打开

出现一个对话框

请选择中间的“启用宏”

否则，将无法使用宏进行编辑！

首先，将代码复制到记事本或word中。

然后打开需要修改的PPT。

然后创建宏并运行宏！

马上就能实现。请看图片操作！

感兴趣的学生可以试试。绝对是实用的技术~

小编亲考试office2010中酱紫

然后出现这样的对话框

嗯~下一个

等几秒钟，然后按照GIF图中所示继续进行即可~ \ ()/~

微信公众号：zhichangcdb(打开微信，搜索公众号)，回答“PPT”可获得100套PPT精美模板！