HasDiagramNode Property

Microsoft Excel Visual Basic

previous page next page
MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used for this property.
msoFalse Returns if a shape is not a diagram node.
msoTriStateMixed Not used for this property.
msoTriStateToggle Not used for this property.
msoTrue Returns if a shape is a diagram node.

expression.HasDiagramNode

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example places a diagram node in the active worksheet and then displays a message to notifiy the user whether or not the node was successfully created.

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
previous page start next page