Probleme de couleur sous VB
Résolu
Bonjour a tous,
Je voudrai savoir comment renseigner la couleur de mon graphique par un code HTML (#00FF7F) au lieu de juste le code "colorIndex="
Si vous pouviez m aider, j'en serai extremement reconnaissant, car je suis vraiment nul en VB, mais bon j'essaie de progresser
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
ActiveWindow.Visible = False
Windows("Book1").Activate
Range("O23").Select
End Sub
Je voudrai savoir comment renseigner la couleur de mon graphique par un code HTML (#00FF7F) au lieu de juste le code "colorIndex="
Si vous pouviez m aider, j'en serai extremement reconnaissant, car je suis vraiment nul en VB, mais bon j'essaie de progresser
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
ActiveWindow.Visible = False
Windows("Book1").Activate
Range("O23").Select
End Sub
3 réponses
-
A la place de la propriété ColorIndex, utilise la propriété Color, qui peut s'utiliser comme suit, avec la fonction RGB :
.Color = RGB(0, 255, 127)
NB il m'a fallu convertir tes valeurs RGB hexadécimales (#00FF7F) en valeurs décimales :
Rouge hexa 00 --> décimal 0
Vert hexa FF --> décimal 255
Bleu hexa 7F --> décimal 127
Il existe peut être une façon plus simple de le faire directement avec du code HTML, mais je ne la connais pas. -
merci bcp in2ni, je vais essayer.
En tout cas merci pour ta rapidite! -
Sa fonctionne impec, merci
