全部显示

HasDiagramNode 属性

       

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

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