Risolto! :-))
Il codice probabilmente è ridondante... ma funziona!
Se qualcuno lo vuole ripulire e semplificare non mi offendo.. :-)
'###################################################
' copia una riga (e il suo contenuto), spostando l'originale in giù
Sub copia_riga
oDoc=thisComponent
oDoc.SupportsService("com.sun.star.sheet.SpreadsheetDocument")
oCelle=oDoc.getCurrentSelection().getCellAddress()
oRow=oCelle.Row
oSheets = odoc.Sheets
oView = ThisComponent.CurrentController
nome_sheet = oView.GetActiveSheet.Name
oCalcSheet = oSheets.GetByIndex(0)
For I = 0 to oSheets.Count -1
oCalcSheet = oSheets(I) 'recuperiamo la tabella
if oCalcSheet.Name = nome_sheet Then
oSheet_num = I
end if
Next I
oSheets = oDoc.Sheets (oSheet_num)
CellRangeAddress.Sheet = oSheet_num
CellRangeAddress.StartColumn = 0
CellRangeAddress.StartRow = oRow
CellRangeAddress.EndColumn = 200 'espediente vomitevole...
CellRangeAddress.EndRow = oRow
oSheets.insertCells(CellRangeAddress,com.sun.star.sheet.CellInsertMode.ROWS)
'attenti forse vi manda a capo...
oRow2 = oRow +1
CellAddress.Sheet = oSheet_num
CellRangeAddress.StartRow = oRow2
CellRangeAddress.EndRow = oRow2
CellAddress.Column = 0
CellAddress.Row = oRow
oSheets.copyRange(CellAddress, CellRangeAddress)
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
