HasDiagram 属性

返回是图形还是图形区域包含图表。MsoTriState 类型，只读。

MsoTriState 可为以下 MsoTriState 常量之一。

msoCTrue 不用于本属性。

msoFalse 当图形不是图表时返回该值。

msoTriStateMixed 不用于本属性。

msoTriStateToggle 不用于本属性。

msoTrue 当图形是图表时返回该值。

expression.HasDiagram

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

示例

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

Sub CheckforDiagram()

    Dim shDiagram As Shape

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

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

End Sub