Discussion :

[DonKnacki]

Bonjour à tous, je cherche comment modifié en VBA, la couleur d'une série de donnée de mon graphique
En cherchant sur le net, j'ai trouvé qu'il fallait passé par SeriesCollection
mais je ne trouve pas à quel objet cette propriété s'applique

Voici un bout de code pour vous donner les noms de mes objets

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim oGraph As Object
Set oGraph = Me.GraphiqueDelai.Object 'GraphiqueDelai = mon graphique

Merci de votre aide

[User]

Salut,

As-tu consulté ces 2 tutoriels :

Programmer MS Graph

Plus loin qvec MS Graph

A+

[rob1son76]

Salut,

Lorsque j'ai posé la même question Loufab (que je remercie encore) m'a dis de télécharger le chm MS Graph a partir de ce lien:
http://www.microsoft.com/downloads/e...displaylang=en
Ca m'a pas mal aidé.
Tu peux aussi regarder certaine de mes discution mais fait attention comme je débute je pense que mes solutions ne sont pas parfaite.

Bon courage.

[DonKnacki]

Merci pour ces 2 tutos qui me sont bien utiles !

Par contre, je me heurte à un autre problème
A savoir que j'aimerai que les couleurs des séries soient automatiquement attribué sauf pour la dernière série qui doit être transparente (donc sans couleur et sans bordure)
J'ai essayé plusieurs chose mais le résultat est aléatoire.
voici mon code actuel

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set oGraph = Me.GraphiqueDelai.Object
Set oSeries = oGraph.Application.Chart.SeriesCollection          
'oSeries(oSeries.Count).Interior.ColorIndex = xlNone
For i = 1 To oSeries.Count
	With oSeries(i)
		.Fill.ForeColor.SchemeColor = xlAutomatic
		.Border.LineStyle = xlAutomatic
		.Fill.BackColor.SchemeColor = xlAutomatic
	End With
	If i = oSeries.Count Then
		With oSeries(i)
			.Fill.ForeColor.SchemeColor = xlNone
			.Fill.BackColor.SchemeColor = xlNone
			.Border.LineStyle = xlNone
		End With
	End If
Next