Bild von aus einem Dokument in das aktuelle kopieren

[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.

[kilix]

Hallo,
warum antwortet niemand auf meine Frage?

[mikele]

Hallo,
... weil es vielleicht nicht ganz so trivial ist.

[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.

[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.

[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!

[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?

[mikele]

Hallo,
der Code bezieht sich auf ein Writerdokument. Ich vermute jetzt mal, dass du mit einer Calcdatei arbeitest?

[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.

[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