Bonjour,
Je suis neophyte avec le Chartspace et je souhaiterai utiliser Chartspace pour créer un graphique dans un userform, j'utilise un code tres fortement inspiré de celui de SilkyRoad:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
Dim j As Integer
Dim Tableau(30), Plage(30)
'suppression des series existantes dans le ChartSpace
For i = Cht.SeriesCollection.Count To 1 Step -1
Cht.SeriesCollection.Delete i - 1
Next i
For i = 1 To 30
Tableau(i) = Cells(1, 7 + i) 'Abscisses( plage de cellules H1:AJ1 )
Next i
Cht.Type = C.chChartTypeScatterLine 'type de graphique:Barres
For j = 0 To ListBox1.ListCount - 1 'boucle sur les éléments de la listbox
If ListBox1.Selected(j) = True Then
If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
For i = 1 To 30
Plage(i) = Cells(j + 2, 7 + i) 'recuperation Ordonnees pour chaque série
Next i
With Cht
.SetData C.chDimCategories, C.chDataLiteral, Tableau
.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
.SeriesCollection(x).Interior.Color = 50000 * (j + 1)
End With
x = x + 1
Erase Plage
End If
Next j
End Sub |
J'ai changé le type de graphique, j'utilise un type "ScatterLine", et cela bloque à cette ligne
.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
Avec le message suivant "Dimension specifiée non valide avec le type de graphique en cours.
Merci d'avance pour votre aide.
Partager