von Bergkaffee » Di, 15.03.2011 13:27
Hallo zusammen,
nachdem ich mich schon wund gegoogelt habe und zu keinem Ergebniss gekommen bin würde ich mich über ein wenig Hilfe sehr freuen.
Ich habe erst vor ein paar Tagen damit begonnen mich mit Macros auseinander zu setzen und konnte bis jetzt auch alles mit viel Zeit und Google soweit immer ins Trockene retten. Jetzt bin ich allerdings auf Sand gelaufen:
Hier mein Problem:
Ich möchter in diesem Makro
dieses Makro aufrufen.
Das Makro ist im prinzip recht minimalistisch:
Code: Alles auswählen
sub InputStartsystemCalcTools
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$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
rem HIER SOLL DAS MAKRO AUSGEFÜHRT WERDEN
end sub
Kann mir jemand weiterhelfen?
Hallo zusammen,
nachdem ich mich schon wund gegoogelt habe und zu keinem Ergebniss gekommen bin würde ich mich über ein wenig Hilfe sehr freuen.
Ich habe erst vor ein paar Tagen damit begonnen mich mit Macros auseinander zu setzen und konnte bis jetzt auch alles mit viel Zeit und Google soweit immer ins Trockene retten. Jetzt bin ich allerdings auf Sand gelaufen:
Hier mein Problem:
Ich möchter in diesem Makro
[img]http://www.bergkaffee.de/img/trafo.png[/img]
dieses Makro aufrufen.
[img]http://www.bergkaffee.de/img/calctools.png[/img]
Das Makro ist im prinzip recht minimalistisch:
[code]sub InputStartsystemCalcTools
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$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
rem HIER SOLL DAS MAKRO AUSGEFÜHRT WERDEN
end sub[/code]
Kann mir jemand weiterhelfen?