OpenOffice Writer - Bild durch ein anderes Bild ersetzen.

[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

[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

[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

[claves]

Vielen Dank...

is ja eigentlich simpel wenn man die Syntax und die Vokabeln drauf hat

[Frieder D.]

Hallo claves

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