[Risolto] Macro inserisce nuova riga

[GianlucaB]

Salve a tutti, mi servirebbe l'istruzione per inserire una nuova riga in un foglio calc, istruzione da inserire nella macro basic.
Ho trovato qua sul forum una possibile solzuione, ma a me non funziona, escono errori strani, forse una versione diversa del linguaggio di programmazione?
Qualcuno può aiutarmi?
Utilizzo Libreoffice 5.2


Grazie.

[charlie]

Ciao, dovresti allegare il tuo file di Calc (basta un esempio, senza dati sensibili) con la macro che ti dà errore.

[patel]

dove vuoi inserire la riga ? in corrispondenza della cella attiva ? se è così

Codice: Seleziona tutto

Sub inserisciriga
Dim oSheet, oRangeAddress
oSheet = ThisComponent.Sheets(0)
with oSheet
  RIGA = ThisComponent.CurrentSelection.CellAddress.Row +1
  oRangeAddress = .getCellRangeByName("A" & RIGA).getRangeAddress()
  .insertCells(oRangeAddress, com.sun.star.sheet.CellInsertMode.ROWS)
end with
End Sub

[GianlucaB]

Grazie, questo codice funziona.