[Calc] Histogramme avec couleur dégradée

Vos meilleures macros et portions de code sont publiées dans cette section.
Aucun support sur une question de programmation ici !

Modérateur: Vilains modOOs

Règles du forum
Aucune question dans cette section !
Celle-ci rassemble les meilleures macros et portions de code. Vous pouvez en revanche commenter ou argumenter le code exposé. Vous pouvez même remercier l'auteur (cela fait toujours plaisir) en indiquant par exemple dans quel cadre ou contexte vous en avez eu l'utilité.
Si vous avez à poster quelque chose, faites-le depuis la section Macros et API et demandez à un modérateur de l'y déplacer.

[Calc] Histogramme avec couleur dégradée

Messagepar Dude » 29 Juin 2009 16:21

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é 4361 fois


couleur_histog.ods
(18.05 Kio) Téléchargé 568 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
Avatar de l’utilisateur
Dude
Grand Maître de l'OOffice
Grand Maître de l'OOffice
 
Message(s) : 20556
Inscrit le : 03 Mars 2006 08:45
Localisation : 127.0.0.1

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

Messagepar Tibutxi » 15 Oct 2015 11:01

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
OpenOffice 4.1.1 sous Windows 7
Tibutxi
Fraîchement OOthentifié
 
Message(s) : 2
Inscrit le : 15 Oct 2015 10:58


Retour vers Suprême de code

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité