很多小伙伴在修改已经创建的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精美模板!

1.《【ppt怎么把所有字体变窄】PPT提示:批量修改PPT字体大小和颜色》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。

2.《【ppt怎么把所有字体变窄】PPT提示:批量修改PPT字体大小和颜色》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/keji/2487064.html