BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Makro: "Lade JPGs in Tabelle" gibt es das?

WRITER hat alles, was Sie von einer modernen, voll ausgestatteten Textverarbeitung erwarten.
Antworten
lino
Beiträge: 29
Registriert: Sa 2. Feb 2019, 17:59

Makro: "Lade JPGs in Tabelle" gibt es das?

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
Beiträge: 290
Registriert: Sa 19. Mär 2011, 19:00

Re: Makro: "Lade JPGs in Tabelle" gibt es das?

Beitrag von hylli » Mo 20. Mai 2019, 14:07

Leider nicht ganz das was Du haben möchtest:
https://extensions.libreoffice.org/extensions/addpics

Hylli
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

Re: Makro: "Lade JPGs in Tabelle" gibt es das?

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

lino
Beiträge: 29
Registriert: Sa 2. Feb 2019, 17:59

Re: Makro: "Lade JPGs in Tabelle" gibt es das?

Beitrag von lino » Mo 20. Mai 2019, 22:40

https://microsoft-programmierer.de/Deta ... 35&l=0&v=d
... das könnte etwas sein, ein VBA Macro für MS Word. Funktionieren die auch unter LO?
Danke Lino

norre
Beiträge: 385
Registriert: Di 16. Mai 2017, 08:18

Re: Makro: "Lade JPGs in Tabelle" gibt es das?

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: 7.2.5.2 (x64) unter Win 11

F3K Total
Beiträge: 2410
Registriert: So 10. Apr 2011, 10:10

Re: Makro: "Lade JPGs in Tabelle" gibt es das?

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) 154-mal heruntergeladen
Windows 10: AOO, LO Linux Mint: AOO, LO

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten