Calc – Optimiser une colonne

Auteur : Bernard Marcelly

Problème :

Une macro écrit des textes dans des cellules Calc. Mais certains textes n'apparaissent pas en entier car ils sont plus long que la cellule.

Solution :

Optimiser la colonne.

La macro suivante écrit des textes dans une colonne et optimise la colonne.

Pour info, manuellement on peut aussi :

- sélectionner la ou les colonnes

- et faire Menu Format / Colonne / Largeur optimale...

REM ***** BASIC *****

Option Explicit

Sub Optimiser_colonne

Dim oDocument, oSheets As Object

Dim MaFeuille As Object

Dim oCell, oColonnes As Object

Dim y1, MaxLignes As Integer

oDocument = ThisComponent

oSheets=oDocument.Sheets()

MaFeuille = oSheets(0)

rem Ecriture sur une colonne de textes longus

MaxLignes = 20

For y1= 1 to MaxLignes

oCell = MaFeuille.getCellByPosition(3,y1) 'dans colonne D

oCell.setString(String(25-y1, "M"))

Next y1

rem Optimisation de la colonne

oColonnes= oCell.getColumns()

oColonnes.OptimalWidth= TRUE

End Sub

Sophie Gautier

2003-05-04T08:53:56