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 à [email protected] 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
