TintAndShade et graphique
Résolu
borntobealive
Messages postés
138
Date d'inscription
Statut
Membre
Dernière intervention
-
borntobealive Messages postés 138 Date d'inscription Statut Membre Dernière intervention -
borntobealive Messages postés 138 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Tintandshade vba
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
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
