TintAndShade et graphique
Résolu
borntobealive
Messages postés
167
Statut
Membre
-
borntobealive Messages postés 167 Statut Membre -
borntobealive Messages postés 167 Statut Membre -
slt voici un code qui essaye de generer des graphique sur la base des couleur de colorindex
dec.mg est un graphique de type xlpie
à chaque execution le code me renvoi l'erreur 1004 ("erreur defini parl'application ou par l'objet")
TintAndShade n'existe pas pour les points ?
auquel cas y'a-t-il un moyen efficace de contourner le problème ?
merci d'avance
titre = "revenu" Then couleur = 56
Dim indice As Single
indice = 0.1
For Each Po In Dec.mg.SeriesCollection(1).Points
With Po.Interior
.ColorIndex = couleur
.TintAndShade = indice
End With
indice = indice - 0.05
Next Po
dec.mg est un graphique de type xlpie
à chaque execution le code me renvoi l'erreur 1004 ("erreur defini parl'application ou par l'objet")
TintAndShade n'existe pas pour les points ?
auquel cas y'a-t-il un moyen efficace de contourner le problème ?
merci d'avance
1 réponse
voilà j'ai contourner le problème (oui je sais c'est moche)
Dim indice As Single
indice = -0.1
Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.ColorIndex = couleur
For Each Po In Dec.mg.SeriesCollection(1).Points
Po.Interior.Color = Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.Color
Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.TintAndShade = indice
indice = indice - 0.05
Next Po
Dec.Wk_ComptaMensuel.Worksheets("couleur").Cells(1, 1).Interior.ColorIndex = 0
