Scanner anfordern als Icon

[MB29]

Hallo,

ich habe schon wieder vergessen, wie man sich Icons bastelt. Konkret geht es mir im Moment darum das im Einfügen-Menü "versteckte" anfordern eines zu scannenden Bildes mit einem Klick auf die Symbolleiste zu erreichen.

Danke und bitte nicht hauen, weil ich nicht ausgiebig gesucht habe.

MfG - Mo

OO 2.2 auf Win2k

[komma4]

Klicke auf den schwarzen Abwärtspfeil am rechten Ende einer Symbolleiste und wähle dann "Symbolleiste anpassen..."

Kommst Du damit weiter?

[RS]

Hallo Mo,

ich würde die Menüabfolge "Einfügen - Bild - Scannen - Anfordern" mit dem Makrorecorder aufzeichnen, und das Ganze dann über "Symbolleiste anpassen" mit einem Icon Deiner Wahl versehen.

Gruß,

Rebecca

[MB29]

Danke für Eure Antworten und entschuldigung, dass ich mich erst jetzt melde.

@komma4
Auf dem von Dir beschriebenen Weg konnte ich den Befehl nicht finden.

@RS
Leider ist bei mir unter Extras => Makros => "Makros aufzeichnen" ausgegraut.

[komma4]

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

[RS]

Sorry!!! Irgendwie habe ich das nur nebenbei gemacht, und bin tatsächlich im Writer geblieben, statt das Ganze in Draw auszuprobieren. Wenn ich Zeit habe probiere ich diesen "Makrotransfer", nochmals sorry für meinen "Schnellschuss".

Gruß,

Rebecca

P.S.: FUNKTIONIERT EINWANDFREI.

[MB29]

Vielen Dank komma4! Hat prima geklappt.

[lamer56]

heyp !!

ich denke noch einfacher wäre es über Ansicht -> Symbolleiste anpassen gegangen.
Über hinzufügen den Befehl aussuchen und dann diesem einfach ein Symbol zuordnen.
Fertig.

Bis dann
Lamer56

[komma4]

Lamer56,

lese mal oben: da hat MB29 den Befehl nicht finden können....