OpenOffice Writer - Bild durch ein anderes Bild ersetzen.

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: OpenOffice Writer - Bild durch ein anderes Bild ersetzen.

Re: OpenOffice Writer - Bild durch ein anderes Bild ersetzen

von Frieder D. » Mi, 11.01.2012 15:16

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

Re: OpenOffice Writer - Bild durch ein anderes Bild ersetzen

von claves » Mi, 11.01.2012 15:05

Vielen Dank...

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

Re: OpenOffice Writer - Bild durch ein anderes Bild ersetzen

von Frieder D. » Di, 10.01.2012 18:15

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

von Frieder D. » Di, 10.01.2012 17:21

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

OpenOffice Writer - Bild durch ein anderes Bild ersetzen.

von claves » Di, 10.01.2012 15:46

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

Nach oben