[Risolto] Eliminare un Immagine.
Inviato: sabato 13 novembre 2010, 23:15
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:
Qualche anima pia mi saprebbe indicare una via per risolvere quel 'cancello immagine'?
Ciao
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 Ciao