Merci ;0)
1.) Peux tu m'expliquer comment tu t'y es pris pour trouver
ces propriétés (DiagonalBLTR, Color, OuterLineWidth ) ?
2.) D'ailleurs, je ne trouve pas l'objet "thisComponent" ni la
méthode "Sheets()" (par contre je trouve sheet, mais il ne me
semble pas que se soit la même chose)
http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/module-ix.html
Mais je trouve "getCellRangeByName()".
http://api.openoffice.org/docs/common/ref/com/sun/star/table/XCellRange.html#getCellRangeByName
une explication ?
3.) Enfin, pourquoi dans un cas on passe par
thisComponent.Sheets(0).getCellRangeByName("A1").DiagonalBLTR
= maLigne '/
Et dans un autre on utilise
com.sun.star.table.BorderLine.Color = RGB(0,0,0)
Bref, pourquoi on utilise une propriété avec
thisComponent.Sheets(0).getCellRangeByName("A1") puis une
autre avec com.sun.star.table.BorderLine ?
Pourquoi on utilise pas la même manière de faire quelque soit
la propriété ?
Merci d'avance ;-)
Option Explicit
Sub Main
Dim maCellule As Object
'http://api.openoffice.org/docs/common/ref/com/sun/star/table/BorderLine.html
Dim maLigne as new com.sun.star.table.BorderLine
maCellule = thisComponent.Sheets(0).getCellRangeByName("A1")
'Ligne en noir
maLigne.Color = RGB(0,0,0)
'Taille ligne 1/100 mm
maLigne.OuterLineWidth = 60
'http://api.openoffice.org/docs/common/ref/com/sun/star/table/CellProperties.html
maCellule.DiagonalBLTR = maLigne '/
maCellule.DiagonalTLBR = maLigne '\
End Sub
Créez votre adresse électronique pren...@laposte.net
1 Go d'espace de stockage, anti-spam et anti-virus intégrés.