Re: [de-users] Fragen zu Writer-Makros

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+unsubscribe@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