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

Bonjour,Bonjour,Je souhaite modifier les propriété de remplissage de type gradient
    d'une formeJ'arrive à le faire pour des remplissages simple, 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 structureCette structure comporte 
différentes propriétés dont StartColor et
    EndColor, ce qui correspond bien aux deux propriétés que je veux
    changerVoilà 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
        objectDim maForme as objectDim Gradient as objectConst col1 as Long = 082*65536 + 144 * 256 
+ 139 'TurquoiseConst col2 as Long = 229*65536 + 226 * 256 + 202 'Cool grayConst col3 as Long = 
071*65536 + 045 * 256 + 051 'Brownish
        purpuleConst col4 as Long = 231*65536 + 071 * 256 + 046 'orange-redConst colBl as Long = 
255*65536 + 255 * 256 + 255 'BlancmonDocument = thisComponentlesArrPlans = 
monDocument.MasterPagesunArrPlan = lesArrPlans(1)maForme = unArrPlan.GetByName("MD")Gradient = 
maForme.FillGradientGradient.StartColor = col2Gradient.EndColor = col4Mon 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 objetPierre
-- 
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