1 Bild in mehreren Tabellen ersetzen

[mikele]

Hallo,
zum Makro:
Du solltest es zunächst einfach an einer leeren Datei probieren.
-> neues Dokument und z. B. drei Tabellen anlegen
Dann:
.>Extras->Makros->Makros verwalten->Basic...
In dem Dialog klickst du dann auf dein Dokument (sollte links zu sehen sein) und dann auf die Schaltfläche "Neu". Du wirst gefragt und bestätigst, dass du ein neues Modul namens "Module1" ertsellen möchtest. Dann öffnet sich sofort die Programmierumgebung mit einem leeren Makro.

Code: Alles auswählen

Sub Main

End Sub

Dort dazuwischen hinein kopierst du nun meine Codezeilen

Code: Alles auswählen

oDoc=ThisComponent
	for i=0 to oDoc.Sheets.Count-1
		oTab=oDoc.Sheets(i)
		'In welcher Zelle soll die Grafik positioniert werden?
		oZelle=oTab.getCellRangeByName("C5")
		Point=oZelle.Position
		Grafik=oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
		Grafik.GraphicURL=convertToUrl("c:\pfad_zu_deiner_datei\unterschrift.bmp")
		Grafik.Position=Point
		oTab.DrawPage.add(Grafik)
		oShape=oTab.DrawPage.getByIndex(oTab.DrawPage.Count-1)
		Size=oShape.Bitmap.Size100thMM
		oShape.Size=Size
	next

In der Zeile 9

Code: Alles auswählen

oZelle=oTab.getCellRangeByName("C5")

ersetzt du C5 durch deine Wunschzelle.
In der Zeile 12

Code: Alles auswählen

Grafik.GraphicURL=convertToUrl("c:\pfad_zu_deiner_datei\unterschrift.bmp")

setzt du den vollständigen Pfad zu deiner Unterschriftsdatei.
Danach startest du das Makro

screen.png (56.01 KiB) 1281 mal betrachtet

und schaust in der Datei, was passiert ist.