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]