Anthony,
Tried it but ibd100 does not appear in the list as of yet.
I'm quite sure that the macro is in the spreadsheet as I can edit
it. I've copied it below.
QUESTIONS:
1) Could the empty 'Sub Main/End Sub' cause problems? I could try deleting that.
2) When I open this spreadsheet OO tells me that the spreadsheet
contains macros and asks me if I Want to enable them. Possibly the way
I've saved the spreadsheet itself or the fact that it needs to be
enabled causes it to not show up when we go to make the key
assignment? How would I set this spreadsheet to always enable the
macro?
Thanks,
Mark
REM ***** BASIC *****
Sub Main
End Sub
sub cptoa1
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
end sub
On 7/18/07, Anthony Chilco <[EMAIL PROTECTED]> wrote:
Hi Mark,
Give this a try: add something to a cell, delete it, save the
spreadsheet then check for it in the list.
tc
Mark Knecht wrote:
> The spreadsheet does not appear in that list. The spreadsheet is open.
> It's the only thing open on my desktop. The spreadsheet does have the
> cptoa1 macro in it.
>
> This spreadsheet works correctly on my Linux 64-bit machine in
> OO-2.2.1. I bring it over to my Windows Vista machine and have the
> problems I have been describing.
>
> Strange.
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
