Re: [fr-users] Macro Impress, définir un gradient

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+unsubscribe@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