Persistenza immagini da web

[dario2101]

Buona giornata
utilizzo OO 3.2 installato sul PC ( windowsXPSP3).
Mi capita di copiare testi ed immagini da siti. Attualmente per le persistenza delle immagini utilizzo il metodo : Modifica->Collegamenti->seleziona immagini->Interruzione.
Vorrei inserire la macro che faccia tutto questo ( quadratino blu nella barra strumenti).
Come posso fare senza scaricare ed installare tutto il kit plus?.
Grazie e complimenti per il sito "istitutomajorana" e questo forum!!

[Gumo]

Buona giornata
...
Come posso fare senza scaricare ed installare tutto il kit plus?.
Grazie e complimenti per il sito "istitutomajorana" e questo forum!!

cerca su questo sito!
http://www.istitutomajorana.it/index.ph ... e&Itemid=1
g

[dario2101]

Ti ringrazio per l'interessamento, ma ( sono un pò duro!) non ho trovato, nel link suggerito, la soluzione al mio problema.

[✝ antoniocantaro]

Non sei duro... nel sito non c'era. Ecco la macro:




Sub ImmaginiWeb()
 oDPage = ThisComponent.DrawPage
 oProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
 Dim oProps(0) as new com.sun.star.beans.PropertyValue
 oProps(0).Name  = "URL"
  If oDPage.hasElements() Then
   For I = 0 To oDPage.Count - 1
    oGraph = oDPage.getByIndex(I)
    If oGraph.supportsService("com.sun.star.text.TextGraphicObject") Then
     oProps(0).Value = oGraph.GraphicUrl
     oGraph.Graphic = oProvider.queryGraphic(oProps())
    End If
   Next I
 End If
End Sub





Riferimento: http://groups.google.it/group/it-alt.co ... l=it&pli=1

Per inserirla: http://neowiki.neooffice.org/index.php/ ... e_le_Macro

Ciao, Antonio.

[dario2101]

Grazie Antonio !!
Pensavo fosse una cosa più semplice ( come avrai capito, non sono un grande esperto ), comunque ora ci provo.
Una buona giornata
Dario

[✝ antoniocantaro]

In ogni caso hai sempre il Kit Plus.

Ciao.