LibreOffice-Forum

Dieses Makro kannst Du in einem Modul in Deiner Datei speichern.

Andrew Pitonyak's OpenOffice Macro Information
https://www.pitonyak.org/oo.php

in deutsch war und ist für mich immer noch die größte Hilfe:
http://www.uni-due.de/~abi070/count.php ... eutsch.pdf

Verankerung an der Seite ist nicht hilfreich, da die Bilder immer auf z.B. der 2. Seite bleiben. Unabhängig vom Text und jeglichen Seitenumbrüchen. Ich würde auf der "leeren" Seite nur einen Absatz haben und alles an diesem Absatz verankern. Beispiel-Datei. Bilder_frei_auf_Seite.odt Hier sind alle B...

Man muss verstehen, dass Position und Verankerung zwei unterschiedliche Dinge sind. In den Bild-Eigenschaften kannst Du am Absatz verankern und die Position relativ zur Seite einstellen. Wenn Du aber das Bild mit der Maus rumziehst, dann wird wieder alles relativ zum Anker verstellt. Auch deshalb em...

Hab noch kurz meinen obigen code vereinfacht. Wenn ich Dein letztes Beispiel an Deinem Test-Text anwende, wird stets eins der 2 Bilder gelöscht. (edit: passiert wohl nur auf meinem alten, langsamem Rechner, auf meinem modernerem System geht's ohne Probleme) Leider liess mir das keine Ruhe und so hab...

Wunderbar, hätte hier noch einen Ansatz zum Ausbauen gehabt: rem lösche leere Zeilen, die kein bild oder umbruch haben Sub delete_empty_paras Call replace_whitespaces oText = ThisComponent.Text oTextEnumeration = oText.createEnumeration do while oTextEnumeration.hasmoreelements oPar = oTextEnumerati...

Meiner Ansicht nach erfordert es ein recht kompliziertes Macro wegen der Bilder. Um herauszufinden, ob ein Bild an einer bestimmten Textstelle verankert ist, muss man jeden einzelnen Anker aller Bilder vergleichen, ob er innerhalb des Bereichs eines Textcursors steht. Hier ein kleines Macro zum Test...

sub changesize odoc=thiscomponent osheet= odoc.getsheets().getbyname("Tabelle1") ooShape = GetControlShape(osheet, "btn_1") Position= ooShape.getPosition() Position.X = Position.X-50 Position.Y = Position.Y -50 ooShape.setPosition(Position) Size= ooShape.getSize() Size.Height = Size.Height+50 Size....

Hi, ist "com.sun.star.text.TextGraphicObject". https://api.libreoffice.org/docs/idl/ref/servicecom_1_1sun_1_1star_1_1text_1_1TextGraphicObject.html Da findet man aber nicht alle Eigenschaften. (Ich weiß auch nicht mehr, woher ich folgendes habe). g = ThisComponent.CurrentSelection(0) if g.supportsSe...

Als workaround kannst Du auch einfach die Zahl 3 anstelle des Feldbefehls verwenden.