Page 1 sur 1

[Calc] Histogramme avec couleur dégradée

MessagePublié: 29 Juin 2009 16:21
par Dude
Modification de la couleur des barres d'un histogramme pour un dégradé allant (par exemple) de noir à blanc.

histo.png
histo.png (34.09 Kio) Consulté 4332 fois


couleur_histog.ods
(18.05 Kio) Téléchargé 567 fois

Code : Tout sélectionner   AgrandirRéduire
Sub AppliqueDegrade
'**************************************************************************
'   Ce code vous est fourni sous licence CECILL
'   Support depuis le forum officiel francophone
'   http://user.services.openoffice.org/fr
'   Version 1.0 du 11/02/2009
'**************************************************************************
Dim LaBarre As Integer
Dim R as integer
Dim V as integer
Dim B as integer

LaBarre = 0
' Couleur de départ à noir
R = 0
V = 0
B = 0

oChart = ThisComponent.CurrentController.ActiveSheet.Charts.getByIndex(0)
oDiag  = oChart.EmbeddedObject.Diagram

Do
   On Error resume Next
   oCol = oDiag.getDataPointProperties(LaBarre,0)'
   oCol.setPropertyValue("FillColor", rgb(R,V,B))
   LaBarre = LaBarre+1
   R = R+10
   V = V+10
   B = B+10
Loop Until LaBarre=26
End Sub



:D

Re: [Calc] Histogramme avec couleur dégradée

MessagePublié: 15 Oct 2015 11:01
par Tibutxi
Bonjour,
Merci pour le code pour le dégradé. Je cherche de mon côté à faire un dégradé allant du blanc au rouge, et je ne trouve pas infos sur les valeurs à affecter à R, V et B pour gérer les couleurs, et donc arriver à mon dégradé. Je pense par ailleurs qu'il faut aussi changer la structure du code pour arriver à un autre dégradé, non ?

La modération a écrit:Pas de question dans ce fil ! Relisez le bandeau rouge en haut de la page
Suite de la question posée :
viewtopic.php?f=8&t=48912