Hi list,

I'm looking for a way to merge cells in a spreadsheet document.

I've tried this (other stuffs) but without any success :/

Sub mergeCells(sheetIndex, rowIndex)
Dim oSheet as object, oCells as object, oRange as object
Dim oCellRange as new com.sun.star.table.CellRangeAddress
oCellRange.sheet = sheetIndex
oCellRange.startColumn = 0
oCellRange.endColumn = 2
oCellRange.startRow = rowIndex
oCellRange.endRow = rowIndex
oSheet = thisComponent.Sheets.getByIndex(sheetIndex)
oRange = oSheet.SheetCellRanges.SheetCellRangeContainer.addRangeAddress(oCellRange, true)
'oCells = oCharts(0).setRanges(oCellRange)
'oCells.merge(true)
End Sub


THanks for your help, regards
Mathias

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to