注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

wangkai的博客

写不出长遍大论, 只记一些随笔, 一些瞬间想法, 或记一些技术, 以便来日回忆

 
 
 

日志

 
 

VBA宏--设置PPT选中对象_背景填充颜色(for meggie)  

2011-08-08 23:18:24|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Sub 设置PPT选中对象_背景填充颜色()
    ' 设置PPT选中对象_背景填充颜色(Alex的第5个VBA宏,呵)
    '   选中对象(可多个对象)
    '     for my wife(Meggie), wangkaisino@gmail.com
    '
    change_color = &H9BBB59
    
    Dim selection As selection
    Set selection = ActiveWindow.selection
    Dim selType As PpSelectionType
    selType = selection.Type
    
    If selType = ppSelectionNone Then
        MsgBox ("请选择对象, 再调用此宏")
        Exit Sub
    ElseIf selType = ppSelectionShapes Then
        shapeCount = selection.ShapeRange.Count
        For Index = 1 To shapeCount
            selection.ShapeRange(Index).Fill.BackColor.RGB = change_color
        Next Index
    ElseIf selType = ppSelectionText Then
        Dim textR As TextRange
        selection.ShapeRange.Fill.BackColor.RGB = change_color
    Else
        MsgBox ("请选择文本框对象, 再调用此宏")
        Exit Sub
    End If
End Sub
  评论这张
 
阅读(1419)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017