[Calc] Histogramme avec couleur dégradée

[Dude]

Modification de la couleur des barres d'un histogramme pour un dégradé allant (par exemple) de noir à blanc.

histo.png

couleur_histog.ods

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

[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 ?

Pas de question dans ce fil ! Relisez le bandeau rouge en haut de la page
Suite de la question posée : http://forum.openoffice.org/fr/forum/vi ... =8&t=48912