32、Microsoft Office PowerPoint 2003 Visual Basic 实用属性与操作指南

Microsoft Office PowerPoint 2003 Visual Basic 实用属性与操作指南

1. 形状相关属性及操作

1.1 HasDiagramNode 属性

HasDiagramNode 属性用于判断一个形状是否为图表节点，返回值为只读的 MsoTriState 类型。MsoTriState 有以下几种常量：
| 常量 | 含义 |
| ---- | ---- |
| msoCTrue | 不适用于此属性 |
| msoFalse | 形状不是图表节点 |
| msoTriStateMixed | 不适用于此属性 |
| msoTriStateToggle | 不适用于此属性 |
| msoTrue | 形状是图表节点 |

示例代码用于在当前文档中搜索带有节点的图表，如果找到则创建一个带有粗体白色文本的黑色气球：

Sub HasDiagramProperties()
    Dim shpDiagram As Shape
    Dim shpNode As DiagramNode
    Dim shpBalloon As Shape
    Dim sldFirst As Slide
    Set sldFirst = ActivePresentation.Slides(1)
    For Each shpDiagram In sldFirst.Shapes
        If shpDiagram.HasDiagram = msoTrue And _
            shpDiagram.H