IDashboardVisualizers.Count

Copy example

Sub UserProc;
Var
    Mb: IMetabase;
    Dashboard: IDashboard;
    Visualizers: IDashboardVisualizers;
    Visualizer: IDashboardVisualizer;
    i, c: Integer;
Begin
    Mb := MetabaseClass.Active;
    // Open information panel for edit
    Dashboard := Mb.ItemById("DASHBOARD").Bind As IDashboard;
    Visualizers := Dashboard.Visualizers;
    c := Visualizers.Count;
    Debug.WriteLine("Number of visualizers: " + c.ToString);
    // Information about visualizers
    For i := 0 To c - 1 Do
        Visualizer := Visualizers.Item(i);
        Debug.WriteLine("Visualizer: " + Visualizer.Id);
        If Not IsNull(Visualizer.EaxObject) Then
            Select Case Visualizer.EaxObject.Type
                Case EaxObjectType.Grid: Debug.WriteLine("   Table");
                Case EaxObjectType.Chart: Debug.WriteLine("   Chart");
                Case EaxObjectType.Map: Debug.WriteLine("   Map");
                Else Debug.WriteLine(Visualizer.EaxObject.Type);
            End Select;
        End If;
    End For;
End Sub UserProc;