nimel a écrit :
Yo et re-yo,
J'en suis aux formatages finaux (YESS!)
Comment fixer la largeur des colonnes ?
J'ai bien lu qu'il n'y avait pas de propriétés de formatage pour les
colonnes. J'ai donc essayé la méthode par zone de cellules mais je ne
sais pas comment l'écrire, Width n'est pas connu.
' ************** largeur des colonnes *********
CelCurseur = MonTab.createCursorByCellName("A1")
CelCurseur.goDown(5, true)
CelCurseur.BackColor = RGB(255,0,0) 'juste pour vérifier
CelCurseur.Width = 6500
Nicole.
Bonjour,
Je crois qu'on ne peut malheureusement pas le faire directement.Il faut
accéder aux séparateurs via MonTab.TableColumnSeparator et déplacer les
séparateurs.
Sub LargeurColonne
Dim MonDocument As Object, MonTab As Object
Dim LesSeparateurs As Variant
Dim LargeurTab As double
MonDocument = ThisComponent
MonTab = MonDocument.TextTables.getByName ("Tableau1")'à adapter
LesSeparateurs = MonTab.TableColumnSeparators
'récupération de la largeur du tableau
LargeurTab = MonTab.TableColumnRelativeSum
'modification de la largeur de la colonne 0
'.position : par rapport au côté gauche du tableau
LesSeparateurs(0).Position = LargeurTab*0.1 'par exemple
'mise à jour des séparateurs
MonTab.TableColumnSeparators = LesSeparateurs
End Sub
Il faut faire attention car si par erreur tu positionnes un séparateur
avant le précédent, la colonne disparait. Il faut donc rajouter des tests.
Agnès S.
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
