专业微软培训机构,为北京、上海、广州、深圳、长沙、武汉、福州、厦门、泉州、漳州等城市提供EXCEL、PPT、WORD、ACCESS、PROJECT、MCSE、MCITP、OFFICE等高级培训及相关技术服务。

0592-2962798 2963798
2966798 2968798
厦门市厦禾路南洋大厦二楼

最新文章列表

【课程】PPT演示成功之道解密

【原创】超强PPT VBA代码

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

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

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

【PPT案例】厦门轨道交通集团有限公司..

热门文章列表

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

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

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

【课程】PPT演示成功之道解密

PPT设计案例 高端大气年会PPT设计..

【工具下载】PPT制作水印去除工具

首页 > PPT培训 > PPT教程

PPT教程

【原创】超强PPT VBA代码

关键字:PPT设计,PPT教程,PPT培训    发布时间:2016-02-22 15:10:43    作者: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运行,敢叫日月换天地! 
本文关键词:PPT设计   PPT教程   PPT培训   

厦门高士达是一家微软认证培训机构,是专业的EXCEL培训、PPT培训、ACCESS培训、OFFICE培训、微软培训、微软考试及其他IT服务供应商 ©2014 厦门高士达微软高级技术教育中心   闽ICP备14021819号 技术支持:港湾有巢

闽公网安备 35020302001653号