[Calc] Histogramme avec couleur dégradée
Publié : 29 juin 2009 15:21
Modification de la couleur des barres d'un histogramme pour un dégradé allant (par exemple) de noir à blanc.
Code : Tout sélectionner
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