Seite 1 von 1
OpenOffice Writer - Bild durch ein anderes Bild ersetzen.
Verfasst: Di, 10.01.2012 15:46
von claves
Hallo liebe Forum-User,
Die beiden Bilder befinden sich in einer Datei. Das eine Bild soll durch das andere ersetzwerden.
ich find aber den verfluchten befehl nicht und die hilfe im OOo kann mir dazu auch nicht weiter helfen.
Code: Alles auswählen
odoc=thiscomponent
grafiken=odoc.getGraphicObjects
grafikalt=grafiken.getbyName("Grafik1")
grafikneu=grafiken.getbyName("Grafik2")
nun bräuchte ich die Syntax für cut und paste.
vielen Dank für Eure mühen!
Gruß
claves
Re: OpenOffice Writer - Bild durch ein anderes Bild ersetzen
Verfasst: Di, 10.01.2012 17:21
von Frieder D.
Hallo claves
Ich habe dir ein Makro geschrieben, dass das erste Bild durch das zweite ersetzt.
Hier der Code :
Code: Alles auswählen
Sub Replace_Graphic
dim oGraphic1 as Object
dim oGraphic2 as Object
ThisComponent.LockControllers
oGraphic1 = thiscomponent.getGraphicObjects.getbyName("Grafik1")
oGraphic2 = thiscomponent.getGraphicObjects.getbyName("Grafik2")
'Größe anpassen(kannst du auch weglassen
oGraphic1.size = oGraphic2.size
'Bild austauschen
oGraphic1.GraphicURL = oGraphic2.GraphicURL
ThisComponent.UnlockControllers
End sub
Gruß Frieder
Re: OpenOffice Writer - Bild durch ein anderes Bild ersetzen
Verfasst: Di, 10.01.2012 18:15
von Frieder D.
Hallo claves
Falls du beide Graphiken miteinander Vertauschen willst,
so sieht der Code etwas anders aus:
Code: Alles auswählen
Sub interchange_Graphics
dim oGraphic1 as Object
dim oGraphic2 as Object
dim oGraphic3 as Object
dim oshape as Object
ThisComponent.LockControllers
oshape = thiscomponent.createInstance("com.sun.star.drawing.GraphicObjectShape")
oGraphic1 = thiscomponent.getGraphicObjects.getbyName("Grafik1")
oGraphic2 = thiscomponent.getGraphicObjects.getbyName("Grafik2")
'Temporäre kopie vin Grafik1 erzeugen
oshape.name = "Temp_Grafik1"
oshape.size=oGraphic1.size
oshape.GraphicURL=oGraphic1.GraphicURL
thiscomponent.drawpage.add(oshape)
oGraphic3 = thiscomponent.drawpage.getbyIndex(thiscomponent.drawpage.Count-1)
'Größe anpassen(kannst du auch weglassen
oGraphic1.size = oGraphic2.size
'Bild austauschen
oGraphic1.GraphicURL = oGraphic2.GraphicURL
'Größe anpassen(kannst du auch weglassen
oGraphic2.size = oGraphic3.size
'Bild austauschen
oGraphic2.GraphicURL = oGraphic3.GraphicURL
'Temporäre kopie vin Grafik1 löschen
oGraphic3.dispose
ThisComponent.UnlockControllers
end sub
Gruß Frieder
Re: OpenOffice Writer - Bild durch ein anderes Bild ersetzen
Verfasst: Mi, 11.01.2012 15:05
von claves
Vielen Dank...
is ja eigentlich simpel wenn man die Syntax und die Vokabeln drauf hat
Re: OpenOffice Writer - Bild durch ein anderes Bild ersetzen
Verfasst: Mi, 11.01.2012 15:16
von Frieder D.
Hallo claves
claves hat geschrieben:
is ja eigentlich simpel wenn man die Syntax und die Vokabeln drauf hat
Dafür gibt es zwei schöne Tools, die einem helfen die richtigen "Vokabeln" zu finden. (Sie sind fast identisch)
Das
Xray-Tool
und Das
MRI-Tool
(es kann vorkommen, das die Seite nicht bein ersten mal lädt. Probiere es dann einfach später noch einmal.)
Gruß Frieder