❤️ Helfen Sie noch heute, unser LibreOffice Forum zu erhalten! ❤️
Unterstützen Sie das LibreOffice-Forum und helfen Sie uns, unser Ziel für 2025 zu erreichen!
🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱
>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
WRITER hat alles, was Sie von einer modernen, voll ausgestatteten Textverarbeitung erwarten.
-
lino
- Beiträge: 29
- Registriert: Sa 2. Feb 2019, 17:59
Beitrag
von lino » Mo 20. Mai 2019, 13:05
Hallo,
in der Baubranche muss ich häufig Bilder mit Kommentaren versehen und verschicken. Üblicherweise nummeriere ich die Bilder durch und erstelle ein LO Dokument in welchem Bezug auf die Bilder genommen wird. Bei zwei Bildern ist das ok, aber nicht bei 10 - und 10 ist mehr das untere Ende! Gibt es ein Makro (das PicTool ist es nicht), das in etwa folgendes tut:
- File Explorer zum JPGs auswählen anbieten
- Im Dokument eine einspaltige Tabelle mit Anzahl Zeilen = Anzahl Bilder erstellen
- Die ausgewählten Bilder je eins in eine Tabellenzeile als Character einfügen
- dabei komfortablerweise die Bilder auf einen Defaultwert herunterskalieren?
Danke und Gruß
Lino
-
hylli
- * LO-Experte *
- Beiträge: 295
- Registriert: Sa 19. Mär 2011, 19:00
Beitrag
von hylli » Mo 20. Mai 2019, 14:07
Geschäftlich: LibreOffice 7.2.x(als Citrix-Anwendung)
Privat: LibreOffice 7.3.x unter Linux Mint Cinnamon 64bit (jeweils aktuelle Version)
-
lino
- Beiträge: 29
- Registriert: Sa 2. Feb 2019, 17:59
Beitrag
von lino » Mo 20. Mai 2019, 22:29
... habe die AddPics Extension gerade mal ausprobiert, es löst das Problem tatsächlich nicht wirklich, die Nacharbeit ist genau so groß wie beim manuellen Laden der Bilder in die Zellen der ZielTabelle. Dennoch danke für den Hinweis.
Lino
-
norre
- * LO-Experte *
- Beiträge: 393
- Registriert: Di 16. Mai 2017, 08:18
Beitrag
von norre » Mo 20. Mai 2019, 23:58
Hallo,
nicht ganz was du suchst, aber vielleicht eine Erleichterung???
Diese Extension für LO tauscht Bilder aus und passt dabei auch die Größe das ausgetauschten Bildes an das schon bestehende Bild an.
Du müßtest also einmal eine Vorlage mit Dummybildern in der richtigen Größe erstellen und könntest dann diese Bilder direkt austauschen.
Mit meiner LO Version funktioniert es.
Es gibt auch ein Video dazu
https://www.youtube.com/watch?v=8xZnpFnAAQQ
Die Erweiterung
https://extensions.openoffice.org/en/pr ... ge-picture
Gruß
Norre
Libre Office Version: 24.8.4.2 (x64) unter Win 11
-
F3K Total
- * LO-Experte *
- Beiträge: 2501
- Registriert: So 10. Apr 2011, 10:10
Beitrag
von F3K Total » Di 21. Mai 2019, 17:03
Moin,
ich wollte es wissen und habe was gebaut:
Code: Alles auswählen
Sub insert_jpgs_into_texttable
dim dheight as double
dheight = cdbl(inputbox("Bildhöhe in cm","Höhe eingeben","3,0"))
aUrl = get_jpgs
nRows = uBound(aUrl)+1
vCursor = ThisComponent.CurrentController.getViewCursor ()
oTable = ThisComponent.createInstance ("com.sun.star.text.TextTable")
oTable.initialize (nrows, 1)
oTable.setPropertyValue "BackTransparent", true
ThisComponent.Text.insertTextContent (vCursor, oTable, False)
for i = 0 to uBound(aUrl)
oImage = ThisComponent.createInstance("com.sun.star.text.GraphicObject")
With oImage
.GraphicURL = ConvertToURL(aUrl(i))
.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
.Height = dheight*1000
.Width = dheight*1000
End With
oCell = oTable.getCellByPosition(0,i)
oCursor = oCell.createTextCursor()
oCursor.ParaAdjust = 0
oTable.getCellByPosition(0,i).insertTextContent(oCursor,oImage,False)
oImage.Width = oImage.Width * oImage.ActualSize.Width/oImage.ActualSize.Height
next i
end sub
function get_jpgs
oFilePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
oFilePicker.Initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE))
oFilePicker.appendFilter( "Graphics Files ( *.jpg)", "*.jpg")
oFilePicker.MultiSelectionMode = TRUE
nResult = oFilePicker.execute
If nResult <> 0 Then
get_jpgs = oFilePicker.SelectedFiles
End If
End function
Beispieldatei anbei.
Gruß R
-
Dateianhänge
-
- Pictures_into_Texttable.odt
- (11.28 KiB) 222-mal heruntergeladen
Windows 11: AOO, LO Linux Mint: AOO, LO
An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:
Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.