HasDiagramNode 属性

返回图表节点是位于给定的图形还是图形区域中。MsoTriState 类型，只读。

MsoTriState 可为以下 MsoTriState 常量之一。

msoCTrue 不用于本属性。

msoFalse 如果图形不是图表节点，则返回该值。

msoTriStateMixed 不用于本属性。

msoTriStateToggle 不用于本属性。

msoTrue 如果图形是图表节点，则返回该值。

expression.HasDiagramNode

expression 必需。该表达式返回“应用于”列表中的对象之一。

示例

下例将一个图表节点放置在活动工作表中，然后显示一则是否成功创建了节点的消息。

Sub IsDiagram()

    Dim shDiagram As Shape
    Dim nodItem As DiagramNode

    Set shDiagram = ActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramOrgChart, Top:=10, _
        Left:=15, Width:=400, Height:=475)
    Set nodItem = shDiagram.DiagramNode

    'Add a root node to the diagram.
    nodItem.Children.AddNode

    ' Notify user about diagram.
    If shDiagram.HasDiagramNode = msoTrue Then
        MsgBox "Diagram node present"
    Else
        MsgBox "No diagram node present"
    End If

End Sub