[fr-users] Re: Calc macro : styles utilisés

Bonjour


claude wrote
> Quelqu'un aurait-il une idée pour supprimer par macro les styles de 
> cellules non utilisés ?

Un truc du genre :

option explicit

Sub PysRazStyles

dim oStylesF as object
dim oStyles as object
dim oStyle as object
dim i as integer

oStylesF = thiscomponent.getStyleFamilies
oStyles = oStylesF.getByName("CellStyles")

for i = ubound(oStyles.ElementNames) to 0 step -1
        oStyle = oStyles.getByName(oStyles.ElementNames(i))
        if oStyle.isUserDefined and not(oStyle.isInUse) then
                oStyle = nothing
                oStyles.removeByName(oStyles.ElementNames(i))
        end if  
next i

msgbox "fini"
End Sub

Autrement dit on parcourt Document>Familles de Styles> Style de cellules
Si le style "courant" est un style personnalisé et non utilisé, on le
supprime.
Particularité : on parcourt la collection "à l'envers" de n vers zéro pour
éviter
les problèmes (puisqu'on supprime des éléments de la collection parcourue).


Cordialement
Pierre-Yves



--
View this message in context: 
http://nabble.documentfoundation.org/Calc-macro-styles-utilises-tp4027041p4027064.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés