频道栏目
读书频道 > 系统 > 其他综合 > PPT新视角——VBA应用技术
增加或删除SmartArt节点
2013-05-24 16:45:46     我来说两句
收藏   我要投稿

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

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

通过AllNodes和Nodes可访问SmartArt对象的节点。

AllNodes表示所有的节点,而Nodes表示根节点下的所有子节点,这两个属性都返回SmartArtNodes集合对象,每个SmartArtNodes集合中的元素代表了图表中的单个语义节点SmartArtNode。

下面的代码演示了对SmartArt节点的访问。

' 增加SmartArt图表的节点或删除节点

Sub AddSmartArtNodes()

    Dim smtShp As Shape

    Set smtShp = ActivePresentation.Slides(2).Shapes(1)

    If smtShp.HasSmartArt Then

        With smtShp

            ' 添加到位于此节点集合顶层的数据模型的底部。如果最高级别是 2,则这个新节点的级别也将是 2

            With .SmartArt.AllNodes.Add

                .TextFrame2.TextRange.Text = "测试节点1"

                '在此节点上增加一个子节点

                .AddNode.TextFrame2.TextRange.Text = "测试子节点"

            End With

            '更改第一根节点的文本

            .SmartArt.Nodes(1).TextFrame2.TextRange.Text = "改变的文本"

            '在此根节点上增加一个子节点

            .SmartArt.Nodes(1).AddNode.TextFrame2.TextRange.Text = "增加的子节点"

            ' 删除第2个根节点

            .SmartArt.Nodes(1).Delete

        End With

    End If

End Sub

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

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

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