Bild aus einem Writer-Dokument entfernen

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: Bild aus einem Writer-Dokument entfernen

Re: Bild aus einem Writer-Dokument entfernen

von clag » So, 27.02.2011 16:15

Hallo Axel Richter,

Danke für deine Aktion
hatte mit remove und delete schon erfolglos rumprobiert

Code: Alles auswählen

   oDocGraphics.GetbyIndex(i).remove
bewirkte nichts bzw eine Fehlermeldung

nach reichlich suchen habe ich in einem anderen Makro dann "dispose" entdeckt,
damit wurde zwar eine Tabelle entfernt, aber mit dem Bild hat es dann auch funktioniert :)

Code: Alles auswählen

....
if grfk_AltName = "tweet.png" then 
   oDocGraphics.GetbyIndex(i).dispose
....

der Code tut jetzt das gewünschte

aber so richtig durchblicken tu da ich nicht :(

Re: Bild aus einem Writer-Dokument entfernen

von komma4 » So, 27.02.2011 15:58

Code: Alles auswählen

oDocGrahics = ThisComponent.GraphicObjects
ist die collection der Grafiken (Reverse engneering mit gepostetem Code)


Axel Richter hat geschrieben:Per xray findest Du in der DrawPage eine Methode remove
Den Tipp XRAY einzusetzen bekam der Kollege schon öfter. Fragt aber lieber (mit einem unvollständigen Code) nach :roll:

Re: Bild aus einem Writer-Dokument entfernen

von Axel Richter » So, 27.02.2011 15:32

Hallo clag,

ich nehme Mal an, dass oDocGraphics eine DrawPage ist. Per xray findest Du in der DrawPage eine Methode remove http://api.openoffice.org/docs/common/r ... tml#remove.

Code: Alles auswählen

...
   if grfk_AltName = "dasgesuchte.png" then 
    oDocGraphics.remove(oDocGraphics.GetbyIndex(i))
...
Das funktioniert natürlich nur, wenn oDocGraphics eine DrawPage ist.

viele Grüße

Axel

Bild aus einem Writer-Dokument entfernen

von clag » So, 27.02.2011 12:20

Hallo Kenner und Könner,

wie lösche/entferne ich ein Bild aus einem Writer-Dokument
den Namen des zu löschenden Bild habe ich schon in einer Variablen

Code: Alles auswählen

For i = 0 to oDocGraphics.count - 1
   grfk_url = oDocGraphics.GetbyIndex(i).GraphicURL
   oDocGraphics.GetbyIndex(i).Title = FileNameoutofPath(grfk_url, "/") 
   grfk_AltName = oDocGraphics.GetbyIndex(i).Title

   if grfk_AltName = "dasgesuchte.png" then 
   .......????
schonmal Danke

Nach oben