https://bugs.freedesktop.org/show_bug.cgi?id=61109
--- Comment #1 from Roman Polach <r0pol...@gmail.com> ---
' content of macro Sub from attached file:
Public Sub TestRemoveRangeProblem
Dim Brng As New com.sun.star.table.CellRangeAddress
Dim Cll As Object
Dim PS As Object
Dim DL As Object
On Error Goto problemo
Set PS = ThisComponent.getSheets()
Set DL = PS.getByName("Data")
Brng.Sheet = 0
Brng.StartColumn = 3
Brng.EndColumn = 5
Brng.StartRow = 3
Brng.EndRow = 5
DL.removeRange(Brng, com.sun.star.sheet.CellDeleteMode.LEFT)
Set Cll = DL.getCellByPosition(0, 4)
MsgBox "Everything is OK, cell (0, 4) has content '" & Cll.String & "'"
finito:
Exit Sub
problemo:
Select Case Err
Case Else
MsgBox "Error occured: no. " & Err & " - " & Error
Resume finito
End Select
Resume
End Sub
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
