Bonjour,
zorglub.1er a écrit :
Bonjour,
Est il possible d'utiliser la propriéte HoriJustify sans
com.sun.star.table ?
Oui ! Voici un exemple :
sub AlignerCellules
dim oDoc as object, oSheet as object, oRange as object
oDoc = thisComponent
oSheet = oDoc.getSheets().getByName("Feuille1")
oRange = oSheet.getCellRangeByName("D4:F5")
REM equivalence com.sun.star.table.CellHoriJustify.LEFT
'oRange.HoriJustify = 1
REM equivalence com.sun.star.table.CellHoriJustify.CENTER
oRange.HoriJustify = 2
REM equivalence com.sun.star.table.CellHoriJustify.RIGHT
'oRange.HoriJustify = 3
end sub
Mais quel est le but de la question ?
Quel est l'interet escompté ?
Sinon je ne comprends pas comment intégrer cette propriété
dans la macro ci-dessous (avec ou sans com.sun.star.table. Le
mieux pour moi serait sans com.sun.star.table.).
Est il possible de me montrer comment faire à travers
l'exemple de la macro focntionelle ci-dessous ?
Merci d'avance ;0)
Sinon, il suffit d'appliquer la propriété HoriJustify à ta
cellule pour la centrer :
Cell.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
Comme ceci est expliqué dans la bible de programmation Open
office en page 330.
--------------------------------------------------------
REM ***** BASIC *****
Sub ExampleFusion
thisComponent.Sheets.getByName("Feuille1").getCellByPosition(3
,1).String
= "KiKO"
thisComponent.Sheets.getByName("Feuille1").getCellRangeByPosition(3,
1, 4, 1).merge(true)
'Après la fusion des cellules
thisComponent.Sheets.getByName("Feuille1").getCellRangeByPosition(3,1,
4, 1).HoriJustify = 2
End Sub
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
