This code to delete a range of cells dont' run!!! why?

[ekokoua]

I wrrite this code to delete a rangne of Cells. But It don't run. I Try to know why.


sub Main
Dim oDocument As Object
Dim Spreadsheet As Object


Set oDocument = ThisComponent
Set Spreadsheet = oDocument.Sheets.getByIndex(0)


REM adresse source (UNO struct)
Dim mRangeAddress_src1 as New com.sun.star.table.CellRangeAddress

With mRangeAddress_src1
.Sheet=0
.StartColumn = 1
.StartRow = 1
.EndColumn = 2
.EndRow = 2
End With


removeRange(mRangeAddress_src1, LEFT)


end sub
_________________
I love work.

[Marinus]

See recent post at

http://www.oooforum.org/forum/viewtopic.phtml?t=32394

[B Marcelly]

The last instruction is invalid. This is probably correct:

[noranthon]

You seem to have opened numerous threads on this single question. Please don't do that. I have posted the code you need to this thread.