Pierre,
(je renvoie, mal parti tout à l'heure...)
Le 02/06/2020 à 11:28, Pierre Choffardet a écrit :
oups mon message est très mal passé...
Le revoilà (j'espère)
Je souhaite modifier les propriétés de remplissage de type gradient
d'une forme.
J'arrive à le faire pour des remplissages simples, mais pas pour un
gradient.
J'utilise XRay pour trouver les propriétés, ainsi, j'ai trouvé la
propriété FillGradient de l'objet, qui est fait une structure.
Cette structure comporte différentes propriétés dont StartColor et
EndColor, ce qui correspond bien aux deux propriétés que je veux changer.
Voilà le petit bout de code que j'ai fait :
Dim monDocument as object, maPage as object, lesPages as objectDim
lesArrPlans as object, unArrPlan as object, bgArrPlan as object
Dim maForme as object
Dim Gradient as object
Const col1 as Long = 082*65536 + 144 * 256 + 139 'Turquoise
Const col2 as Long = 229*65536 + 226 * 256 + 202 'Cool gray
Const col3 as Long = 071*65536 + 045 * 256 + 051 'Brownish purpule
Const col4 as Long = 231*65536 + 071 * 256 + 046 'orange-red
Const colBl as Long = 255*65536 + 255 * 256 + 255 'Blanc
monDocument = thisComponent
lesArrPlans = monDocument.MasterPages
unArrPlan = lesArrPlans(1)
maForme = unArrPlan.GetByName("MD")
Gradient = maForme.FillGradient
Gradient.StartColor = col2
Gradient.EndColor = col4
Mon problème vient peut-être du fait que j'accède à une structure et non
à des propriétés, et que je le fais mal. Un peu comme la position d'un
objet
oui, dans le cas des structures, il faut :
1. créer une structure autonome de même type,
2. initialiser cette structure à partir de celle de l'objet,
3. faire les modifs voulues dans la structure "externe",
et 4. affecter la structure externe mise à jour à celle de l'objet.
Si vous répondez, merci de penser à utiliser la fonction "répondre à
tous" de votre logiciel de courrier électronique de façon que la liste
reçoive une copie de votre réponse.
Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
