[Résolu][Calc] Histogramme : choix couleur dégradée

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

[Résolu][Calc] Histogramme : choix couleur dégradée

Messagepar Tibutxi » 15 Oct 2015 12:39

La modération a écrit:Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Bonjour,
Merci pour la page https://forum.openoffice.org/fr/forum/v ... 15&t=17339 avec 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 ?
Merci à vous
OpenOffice 4.1.1 sous Windows 7
Tibutxi
Fraîchement OOthentifié
 
Message(s) : 2
Inscrit le : 15 Oct 2015 10:58

Re: Histogramme avec couleur dégradée, choix des couleurs

Messagepar Piaf » 15 Oct 2015 13:07

Bonjour
A tester
Degrade.png
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 G as integer
Dim B as integer
   LaBarre = 0
' Couleur de départ à Blanc
   R = 255
   G = 255
   B = 255
   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,G,B))
      LaBarre = LaBarre + 1
      R = R
      G = G - 10
      B = B - 10
   Loop Until LaBarre = 26
End Sub
Pour compléter et être en accord avec le titre du fil "choix couleur dégradée".
En combinant A tester
couleurhistog.ods
(21.18 Kio) Téléchargé 26 fois
A+
Libre Office Version: 6.1.5 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
Piaf
GourOOu
GourOOu
 
Message(s) : 5547
Inscrit le : 25 Nov 2011 19:07
Localisation : Guyane


Retour vers Macros et API

Qui est en ligne ?

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