返回图表节点是位于给定的图形还是图形区域中。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