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 [EMAIL PROTECTED] 1 Go d'espace de stockage, anti-spam et anti-virus intégrés. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
