J9九游会AG

专业电脑培(pei)(pei)训(xun)机构,为(wei)北(bei)京(jing)、上海、广(guang)州、深圳、长沙、武汉、福州、厦门等城市提供EXCEL培(pei)(pei)训(xun)、PPT培(pei)(pei)训(xun)、WORD培(pei)(pei)训(xun)、ACCESS培(pei)(pei)训(xun)、PROJECT培(pei)(pei)训(xun)、MCSE培(pei)(pei)训(xun)、MCITP培(pei)(pei)训(xun)、OFFICE培(pei)(pei)训(xun)等高级培(pei)(pei)训(xun)及(ji)相关(guan)技术服务。

0592-2962798 2963798
2966798 2968798
厦门湖滨南路皇达大厦5楼

最新文章列表

【PPT下载】PPT制作配色取色工具

【PPT案例】高端大气年会PPT设计

【PPT设计制作】厦门企事业单位标准PP..

【PPT培训】PPT演示成功之道解密

【PPT教程】超强PPT VBA代码

【PPT课程】精进PPT,成就高手

热门文章列表

【PPT教程】普通文本快速转化为SmartA..

PPT案例 宾利汽车经销商申请

做PPT高手,一定要常去这八个网站

搞清楚这四点,让你做出高逼格有格调..

90%的高逼格PPT图文排版,都来自这些..

【PPT教程】PPT为演示文稿分节

【PPT教程】超强PPT VBA代码

关键字:    发布时间:2020/9/10 9:59:05    作者:admin
谈到VBA代码,一般人想到的就是EXCEL VBA,没错,EXCEL VBA超级强大,可是你注意过PPT里也有VBA吗?
不要逼我,逼急了我会变形!
今天就被人逼急了! 
做了洋洋洒洒近60页的PPT,自我感觉还良好,配色什么的也还过得去。谁知送到印刷店准备印刷,对方说了一句,颜色太深,打不出来!哭晕!好吧,服了你,改淡色背景,那倒很轻松,可是白色字怎么改呀!为了达到效果,这些字基本使用的都是自定义文本框。死的不是一般惨!一个个改?有这心,没这命。想到我最拿手的VBA代码来,无非是循环嘛,来,谁怕谁,把EXCEL的VBA搬过来,三除二下搞定。
以下是批量修改幻灯片每个文本框字体颜色的代码,敬请收藏!
Sub 变PPT字体颜色()
Dim Oshape As Shape
Dim Oslide As Slide
Dim Otextrange 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
.Color.RGB = RGB(0, 0, 0)
End With
End If
Next
Next
End Sub
以上代码复制到VBA编辑器内,F5运行,敢叫日月换天地!
本文关键词:

厦(sha)门J9九游会AG是一家微软认证(zheng)培(pei)训机构,是专业的(de)EXCEL培(pei)训、PPT培(pei)训、ACCESS培(pei)训、OFFICE培(pei)训、微软培(pei)训、微软考(kao)试(shi)及(ji)其他(ta)IT服务供应商 ©2014 厦(sha)门J9九游会AG微软高级(ji)技(ji)术教育(yu)中心 技(ji)术支持: