Scannen mit Writer ergibt mieses Bild

[gogo]

...Kann ich in irgendeiner Konfigurationsdatei vom Office das Scanprogramm - z. B. XSane - eingeben?...

Einfach ein kleines Makro wie z.B.:

Code: Alles auswählen

sub XSaneStarten
	shell("xsane")
end sub

über Extras/Anpassen einem Icon/Menüpunkt zuordnen.

Wenn Du xsane mit "--no-mode-selection --save --force-filename '/tmp/gescanntesBild-001.jpg'" startest, kannst Du den Dateinamen vorgeben, und anschließend das Bild im Writer an der aktuellen Cursorposition einfügen:

Code: Alles auswählen

sub BildEinfuegen(sUrl)
	dim document   as object
	dim dispatcher as object
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	dim args1(3) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "FileName"
	args1(0).Value = "file://" + sUrl
	args1(1).Name = "FilterName"
	args1(1).Value = "<Alle Bilder>"
	args1(2).Name = "AsLink"
	args1(2).Value = false
	args1(3).Name = "Style"
	args1(3).Value = "Bilder"

	dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args1())
end sub

[PCFreddy]

Lieber gogo
das habe ich noch nie gemacht. Wenn ich Schwierigkeiten damit habe, melde ich mich nochmal bei die. Vielleicht kannst Du mir dann dabei helfen.

[gogo]

ist ein Workaround - wird sicher ein bisschen Gefummel

[gogo]

Wenn Du auf eine Symbolleiste mit der RECHTEN Maustaste klickst kommt ein Kontxtmenü, da gibt's irgendwo weit unten den Punkt "Symbolleiste anpassen". Damit kannst Du dieser Symbolleiste eine Schaltfläche hinzufügen.
Dort dann so vorgehen:

Screenshot_20220112_184658.png (51.21 KiB) 11460 mal betrachtet

mit Klick auf den Hinzufügen-Pfeil bekommst Du in der Symbolleiste eine neue Schaltfläche, beim Klick auf die Schaltfläche wird das Makro ausgeführt.
Speichere den Scan dann irgendwo und ruf' mit ebendieser URL das 2. Makro auf, wobei Du statt sUrl dann den Pfad und Dateinamen schreibst: Z.B."/tmp/neuesBild.jpg"

[PCFreddy]

So mein lieber gogo
Mit ein wenig rumgewerkel hab ich es tatsächlich hinbekommen.
Sollte ich nochmal was gebrauchen -da es Visual Basic ist und ich absoluter Neuling darin bin- schreibe ich dich mal persönlich an. Man weiß ja nie.

Meinen Respekt an deiner Ahnung und allerliebsten Dank.