Hallo Franklin,

OoOHWHOoO schrieb:
Hallo Franklin,

unter
https://extensions.libreoffice.org/extensions/change-multiple-images-in-writer-pictool
gibt es eine Extension für LibreOffice, mit der man Bilder auf
vielfältige modifizieren kann.

Das ist zwar jetzt nicht die exakte Lösung für Dein Problem, aber ich
denke, man kann in dem Makrokode die Stellen finden, wo die Bildgröße
verändert wird.

[1]  Download-Datei "PicTool-1.0.7_LibreOffice4.oxt" entpacken.
[2]  Im Verzeichnis "PicTool-1.0.7_LibreOffice4" ist ein Verzeichnis
"PicTool"
[3]  Im Verzeichnis "PicTool" ist die Datei  "PicTool.xba"
[4]  In der Datei "PicTool.xba" sind alle Makro-Anweisungen.
[5]  Ab "rem------- scale" sind wohl die Anweisungen, um die Bildgröße
zu modifizieren. "g." ist dabei "g = ThisComponent.CurrentSelection(0)".

Vielleicht kann ja Thomas aus diesen Informationen ein entsprechendes
Makro zusammenbauen ...

Wenn du nur dieses eine Problem lösen möchtest, müsste es so gehen:

sub TextGraphicFixSize
dim oDocument as variant: oDocument = ThisComponent
dim oCurrentSelection as variant: oCurrentSelection = oDocument.CurrentSelection if Not(oCurrentSelection.supportsService("com.sun.star.text.TextGraphicObject")) then
        msgbox("Nur für eine ausgewählte Grafik in Writer")
        exit sub
end if
dim eSize as new com.sun.star.awt.Size
eSize.Width = 2000 '1/100 mmm
eSize.Height = 2000
oCurrentSelection.Size = eSize
end sub


Beachte, dass durch das Mail-Programm hier Zeilenumbrüche drin sein können, wo keine hineingehören:
dim oCurrentSelection ... oDocument.CurrentSelection ist eine Zeile
if ... then  ist eine Zeile

Dieses Makro macht 2cm x 2cm

Wenn du das Seitenverhältnis beibehalten willst, melde dich noch mal. Das ist auch nicht schwer.

Mit freundlichen Grüßen
Regina


--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme? 
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert

Antwort per Email an