[fr-users] Re: Alignement à droite

Bonjour


conil26 wrote
> Quelles lignes de code dois-je ajouter à la macro ci-dessous pour avoir 
> un alignement du texte à droite aux lignes 3 et 5 de mon tableau ,

Ajouter les lignes de déclaration (au début de la procédure) :

dim PysCell as object
dim PysNbCol as integer

Et remplacer les 3 dernières lignes:

PysTable.HoriOrient = com.sun.star.text.HoriOrientation.FULL
end if
end sub 

Par :

        PysTable.HoriOrient = com.sun.star.text.HoriOrientation.FULL

        for PysNbCol = 0 to PysTable.columns.count - 1
                PysCell = PysTable.getCellByPosition(PysNbCol, 2)
                PysAlig(PysCell)
                PysCell = PysTable.getCellByPosition(PysNbCol, 4)
                PysAlig(PysCell)
        next PysNbCol
end if

end sub

sub PysAlig(PysCell as object)

dim PysEnum as object, PysPara as object

PysEnum = PysCell.createEnumeration

do while PysEnum.hasMoreElements
        PysPara = PysEnum.nextElement
        PysPara.ParaAdjust = com.sun.star.style.ParagraphAdjust.RIGHT
loop

end sub


Explications:
- On fait une "boucle" sur toutes les colonnes de la table (on suppose ici
qu'il n'y a pas de cellules fusionnées).
- On accède à chaque cellule des lignes 2 et 4 (la numérotation commençant
à zéro on traite les lignes 3 et 5)
- Pour chaque cellule on appelle la procédure PysAlig
- Cette procédure crée l'énumération de tous les paragraphes
contenus dans la cellule
- Pour chaque paragraphe on définit l'alignement

Cordialement
Pierre-Yves





--
View this message in context: 
http://nabble.documentfoundation.org/Alignement-a-droite-tp4044325p4044331.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