[Solved] Delete Columns Macro

[Nocton]

After doing some calculations I want to clean up the spreadsheet by deleting some columns (I:L) automatically. So I recorded what I want to do and got:

Code: Select all

sub ClearCol
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DeleteColumns", "", 0, Array())

end sub

As can be seen, the recorder has not recorded the columns to delete and a when it runs it deletes the whole spreadsheet.

What do I need to add to indicate the columns to delete?

[Villeroy]

Code: Select all

sub delete_IL()
	sh = ThisComponent.CurrentController.getActiveSheet()
	
	' mri = createUnoService("mytools.Mri")
	' mri.inspect(sh)
	
	addr = sh.getRangeAddress()
	addr.StartColumn = 8
	addr.EndColumn = 11
	sh.removeRange(addr, com.sun.star.sheet.CellDeleteMode.COLUMNS)
end sub

[Nocton]

Many thanks, Villeroy. That worked perfectly.