von komma4 » Mi, 09.05.2007 11:15
MB29,
Du hast Recht: der Befehl wird nicht aufgeführt - 'tschuldigung.
@Rebecca: im Modul Draw leider keine Makro(-aufzeichnung)
Ich habe die Aktion in Writer aufgezeichnet, dabei kam der folgende Code heraus. Versuche mal diesen in einem Modul der STANDARD-Bibliothek von OOo zu speichern und aus Draw auszuführen. Wenn's funktioniert - auf eine Schaltfläche zuweisen...
Wenn nicht: erstmal überfragt. Ich arbeite nicht mit Draw und habe keinen Scanner hier zum Testen...Viel Glück!
Code: Alles auswählen
Sub ScannerAnfordern
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:TwainTransfer", "", 0, Array())
End Sub
MB29,
Du hast Recht: der Befehl wird nicht aufgeführt - 'tschuldigung.
@Rebecca: im Modul Draw leider keine Makro(-aufzeichnung) :-(
Ich habe die Aktion in Writer aufgezeichnet, dabei kam der folgende Code heraus. Versuche mal diesen in einem Modul der STANDARD-Bibliothek von OOo zu speichern und aus Draw auszuführen. Wenn's funktioniert - auf eine Schaltfläche zuweisen...
Wenn nicht: erstmal überfragt. Ich arbeite nicht mit Draw und habe keinen Scanner hier zum Testen...Viel Glück!
[code]Sub ScannerAnfordern
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:TwainTransfer", "", 0, Array())
End Sub[/code]