[Risolto] Eliminare un Immagine.

[Nomen]

Salve a tutti,
non riesco a trovare un modo per cancellare via macro Star Basic un immagine in un documento Writer. In pratica una macro che sto costruendo prende la prima immagine del documento, se esiste, e la salva su un file.
Questo riesco a farlo ma non riesco poi a cancellare l'immagine dal documento... o meglio non trovo la strada per poter capire come fare ^^

Allego un codice di esempio:

Codice: Seleziona tutto

	dim Primocapitoloenum as Object
    dim Primocapitolo as Object
    Dim contenutoenum as object
    dim contenuto as object
    EsisteLaCover = false
    Primocapitoloenum = ThisComponent.getText().createEnumeration()
    If Primocapitoloenum.hasMoreElements() then
	  Primocapitolo = Primocapitoloenum.nextElement()
	  If Primocapitolo.supportsService("com.sun.star.text.Paragraph") Then  '---- This manages the paragraphs
	    contenutoenum = Primocapitolo.createContentEnumeration("com.sun.star.text.TextContent")
	    Do While contenutoenum.hasMoreElements()
	      contenuto = contenutoenum.nextElement()
	      If contenuto.supportsService("com.sun.star.text.TextGraphicObject") Then
	            'salvo immagine
                    'cancello immagine
	      End If
	    Loop
	  end if
	end if    

Qualche anima pia mi saprebbe indicare una via per risolvere quel 'cancello immagine'?

Ciao

[xergio]

Prova:

Codice: Seleziona tutto

contenuto.dispose()