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

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

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

要更改一个SmartArt图表的样式,可使用SmartArt对象的属性QuickStyle,如图10-29所示演示了其访问的过程。
 

10-29

' 更改一个SmartArt的样式

Sub ChangeSmartArtQuickStyle()

    Dim sl As SmartArtLayout, shp As Shape

    '第8个

    Set sl = Application.SmartArtLayouts(8)

    '插入一个SmartArt

    Set shp = ActiveWindow.View.Slide.Shapes.AddSmartArt(sl)

    '改变其样式为列表中3D类别中的优雅

    shp.SmartArt.QuickStyle = Application.SmartArtQuickStyles("urn:microsoft.com/office/officeart/2005/8/quickstyle/3d1")

End Sub

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

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

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