Seite 1 von 2
Gelöst: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: Sa 21. Mär 2026, 19:40
von kilix
Hallo,
ich arbeite an Mitgliedermatrikeldokumenten. Dafür wäre es schön wenn man ein Bild (Foto) mit einem Makro von einem Dokument in das aktuelle Dokument kopieren könnte. Für Bereiche habe ich das, dank der Hilfe von euch, schon mehrfach gemacht aber bei einem Bild sieht das anders aus. Ich weiß auch nicht ob das überhaupt möglich ist.
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: Do 26. Mär 2026, 21:56
von kilix
Hallo,
warum antwortet niemand auf meine Frage?
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: So 29. Mär 2026, 20:25
von mikele
Hallo,
... weil es vielleicht nicht ganz so trivial ist.
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: So 29. Mär 2026, 21:10
von kilix
Hallo mikele,
ja, so sieht es aus! ich habe auch selbst im Internet herumgesucht. Da war schon was aber ich habe es nicht verstanden.
Ich habe die Sache jetzt anders gelöst. Ich habe die Fotos in einem eigenen Verzeichnis gespeichert und hol sie mit einem Makro von dort in mein Dokument. Das war einfach weil der Großteil des Makros mitgeschrieben wurde und erfüllt den Zweck.
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: So 29. Mär 2026, 21:46
von mikele
Hallo,
ich habe mal ein bisschen was probiert.
Code: Alles auswählen
Sub Main
'Zugriff auf Dokument
oDoc=ThisComponent
'Zugriff auf die Bilder
bilder=oDoc.GraphicObjects
'Auswahl des 1. Bildes
bild=bilder.getByIndex(0)
ThisComponent.CurrentController.select(bild)
'Erfassen des kopierbaren Inhalts
o = ThisComponent.CurrentController.getTransferable()
'Setzt den Cursor an das Endes des Dokuments
oCursor = oDoc.Text.createTextCursor
oCursor.gotoend(false)
ThisComponent.CurrentController.select(ocursor)
'Einfügen
ThisComponent.CurrentController.insertTransferable(o)
End Sub
Das muss jetzt nur noch auf zwei Dokumente angepasst werden.
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: So 29. Mär 2026, 21:55
von kilix
Hallo mikele,
vielen Dank für den Code, ich werde ihn mir ansehen und schauen wie weit ich komme. Das wird aber etwas dauern weil ich dzt. sehr wenig Zeit dafür habe. Aber trotzdem, ich bleibe dran!
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: Di 31. Mär 2026, 15:54
von kilix
Hallo mikele,
hatt kurz Zeit, um deinen obigen Code zu probieren. Dazu habe ich ein Dokument mit Bild geöffnet und die Sub eingefügt. Wenn ich sie auf rufe erhalte ich in der Zeile:
bilder=oDoc.GraphicObjects
die Fehlermeldung:
BASIC-Laufzeitfehler.
Eigenschaft oder Methode nicht gefunden: GraphicObjects
Was funktioniert da nicht?
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: Di 31. Mär 2026, 16:15
von mikele
Hallo,
der Code bezieht sich auf ein Writerdokument. Ich vermute jetzt mal, dass du mit einer Calcdatei arbeitest?
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: Di 31. Mär 2026, 22:46
von kilix
Hallo mikele,
ich habe nochmals im Internet herumgewühlt und etwas bei Dannenhöfer Kapitel 7.3.6
https://www.dannenhoefer.de/faqstarbasi ... heet_.html
gefunden.
Ich habe auch das als Makro in ein Dokument mit 2 Bildern eingefügt.
Nach dem Originalcode von Dannhöfer wurde das erste Bild in die Tabelle2 kopiert. Nachdem ich in die Zeile
Grafik = Page.getbyIndex(0)
0 durch 2 ersetzt habe wurde das gewünscht Bild kopiert.
Wenn ich jetzt noch die Position und die Bildgröße richtig stelle und den Weg finde wie ich das Bild in ein anderes Dokument kopieren kann ist mein Problem gelöst.
Position und Größe ist kein Problem. Die Kopie in ein anderes Dokument könnte ähnlich gehen wie in dem Code den du mir vor längerer Zeit für das Kopieren von Zellbereichen in ein anderes Dokument im Forum gezeigt hast.
Das werde ich probieren.
Re: Bild von aus einem Dokument in das aktuelle kopieren
Verfasst: Mi 1. Apr 2026, 13:18
von mikele
Hallo,
noch ein bisschen gespielt:
Code: Alles auswählen
Sub bild_kopieren
'Zugriff auf Dokument
oDoc=ThisComponent
'Zugriff auf das Tabellenblatt
oTab=oDoc.Sheets(0)
'Zugriff auf graph. Elemente
bilder=oDoc.Sheets(0).Drawpage
'Auswahl des Elements, hier das 1.
bild=bilder.getByIndex(0)
'Zugriff auf Controller und Auswahl des Bildes
oCtrl=oDoc.CurrentController
oCtrl.select(bild)
'Erfassen des kopierbaren Inhalts
inhalt = oCtrl.getTransferable()
'Öffnen des Zieldokuments
url=converttourl("vollständer_Pfad_zu _deiner_Datei")
Dim Prop() as new com.sun.star.beans.PropertyValue
ziel = StarDesktop.loadComponentFromURL(url, "_blank", 0, Prop() )
'Einfügen des Bildes
ziel_zelle=ziel.Sheets(0).getCellRangeByName("B5")
ziel_ctrl=ziel.currentcontroller
ziel_ctrl.select(ziel_zelle)
ziel_ctrl.insertTransferable(inhalt)
End Sub