频道栏目
读书频道 > 系统 > 其他综合 > PPT新视角——VBA应用技术
更改SmartArt图表颜色
2013-05-24 16:39:00     我来说两句
收藏   我要投稿

本文所属图书 > PPT新视角——VBA应用技术

本书内容由浅入深,难易结合,理论与实例交替,规范与突破并存,一步步引导读者入门、提高、直至专业。全书共分为4部分:第1部分引导读者入门,熟悉VBA开发环境,掌握VBA编程元素和基本概念以及代码的调试等。第...  立即去当当网订购

要更改一个SmartArt图表的颜色,可以使用SmartArt对象的属性Color,如图10-28所示演示了其访问的过程。
 

10-28

' 更改一个SmartArt的颜色

Sub ChangeSmartArtColor()

    Dim sl As SmartArtLayout, shp As Shape

    Set sl = Application.SmartArtLayouts(10)   '第10个

    Set shp = ActiveWindow.View.Slide.Shapes.AddSmartArt(sl)  '插入一个SmartArt

'改变其颜色为列表中彩色类别中的第2个,也可用索引号

    shp.SmartArt.Color = Application.SmartArtColors("urn:microsoft.com/office/officeart/2005/8/colors/colorful2")

End Sub

您对本文章有什么意见或着疑问吗?请到论坛讨论您的关注和建议是我们前行的参考和动力  
上一篇:更改SmartArt图表布局
下一篇:更改SmartArt图表样式
相关文章
图文推荐
排行
热门
最新书评
文章
下载
读书
特别推荐

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站