Johnny Andersson wrote:
Hi!
Sorry for bothering again...
When I delete the contents of a cell in a macro (for a spreadsheet
document)
I just set ThisComponent.Value to 0 and .String to "" and maybe also
.Formula to "" for each cell.
Is there a quicker way to do this, requiring only one instruction?
I want to obtain the same result as the backspace key does to a selected
cell range.
I recorded a macro when I deleted a cell range and the result looks like
this:
REM ***** BASIC *****
sub DeleteContentsOfCellRange
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
----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$5:$B$6"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem
----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0,
Array())
end sub
I guess I could shorten this quite a bit and still keep the
functionality,
but isn't there an easier way?
Johnny
You could write the code in StarBasic using fewer words but what you
have is adequate. You only need the one instruction - clearContents.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
