Don't ask me to explain. I think there are problems with OO's macro
features. Anyway, I copied the macro to a text file, deleted the old
macro, saved the file, opened it again and created a new macro pasting
back in exactly what was there before. Now it works on that machine.
Go figure...
I have not tried transporting the spreadsheet to another machine
because it's pointless if OO really stores macro key assignments on
the machine instead of in the spreadsheet.
Thanks for your help,
Mark
On 7/18/07, Mark Knecht <[EMAIL PROTECTED]> wrote:
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]
