Calc macro : styles utilisés

fr-users
#1

Bonjour,

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

Merci

Claude

#2

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