GRAPHIQUE AVEC MSCHART

Private Sub Form_Load()
    Dim tabx(10) As Integer
        
    MSChart1.TitleText = "Exemple d'utilisation du composant MsChart"
    MSChart1.chartType = VtChChartType2dLine
    
    For i = 1 To 10
        tabx(i) = i
    Next

     With MSChart1
        ' Pas de rafraichissement...
        .Repaint = False
    
        .ColumnCount = 1            ' 1 graphiques
        .RowCount = 10     ' Nb points

        ' Tracé du 1er graphe
        .Column = 1                 ' numero du graphique
        .ColumnLabel = "tabx"       ' Libellé du 1er graphe
        
        'on rentre les valeurs du graphe point par point
        For Row = 1 To 10
            .Row = Row              'X
            .RowLabel = CStr(Row)
            .Data = tabx(Row)       'Y
        Next Row
        
         ' Rafraîchissement du controle
        .Repaint = True
    End With

    
End Sub