On Wed, 21 Nov 2007 10:42:04 -0600, Tonny <[EMAIL PROTECTED]> wrote:
[EMAIL PROTECTED] escribió:
Aquí tendremos cuestión de enfoques.
OpenOffice.org está pensado para trabajar en ambientes de colaboraciòn.
Imagina que tu documento hace referencia a archivos dentro de la
intranet,
desde una pàgina WEB que se actualiza con las fotografìas de los
productos.
Esta forma de trabajo permitirá que tu documento se mantenga
actalizado de
forma constante, con la desventaja, como indicas, de tener que estar
conectado a la red para matener el documento actualizado, un ancho de
banda razonable, un servidor ràpido.
Yo estoy de acuerdo en que el copiar - pegar de la WEB sea pegar
objetos,
no vìnculos, pero eso no significa que exista una forma "correcta", solo
son distintos métodos de trabajo.
Nota mental: Se requiere en Pegado especial algo que indique que
queremos
pegar objetos WEB, no vínculos.
Gracias esa es la manera mas cómoda, talves hay como poner esta opción
por defecto, para no estarla haciendo siempre.
Y otra cosa se puede mejorar eso de que vuelve a bajar la imagen de
internet, no hay forma de que copie directo desde el navegador la
imagen, total el navegador ya la bajo, no veo la necesidad de que open
office la vuelva a descargar, esto es feo cuando la conexion es lenta
y las imágenes son grandes.
En el pegado especial solo aparecen estos items
Formato HTML
Formato HTML Sin comentario
Texto sin formato
no existe ninguno que indique objetos web, ademas con ninguno de los
anteriores se quedan los objetos embebidos en el documento.
Me pregunto si se puede hacer una extension para esto. Con Basic hay un
script para automaticamente cambiar de imagenes vinculadas a embedidas.
Seria bueno tener un dialogo que aparesca y le pongas la liga de la imagen
y este la inserte y la convierta a nativa.
el snippet es el siguiente:
Sub EmbedLinkedGraphic(oGraph)
REM Author: Andrew Pitonyak
Dim sGraphURL As String
Dim oGraph_2
Dim oCurs
Dim oText
Dim oAnchor
Dim s$
If InStr(oGraph.GraphicURL, "vnd.sun") <> 0 Then
REM Ignora las imagenes que ya estan embedidas
Exit Sub
End If
s = "com.sun.star.drawing.GraphicObjectShape"
If oGraph.supportsService(s) Then
REM Solo se como convertir aGraphicObjectShape.
REM no se como convertir TextGraphicObject,
REM pero quizas tenga que ver con el ImageMap attribute.
oAnchor = oGraph.getAnchor()
oText = oAnchor.getText()
oGraph_2 = ThisComponent.createInstance(s)
oGraph_2.GraphicObjectFillBitmap = oGraph.GraphicObjectFillBitmap
oGraph_2.Size = oGraph.Size
oGraph_2.Position = oGraph.Position
oText.insertTextContent(oAnchor, oGraph_2, False)
oText.removeTextContent(oGraph)
End If
End Sub
Tambien se tiene el siguiente script de DannyB el cual hace el ingreso de
la imagen embedida:
REM Given a URL to an external graphic resource,
REM load that graphic permanently into this drawing document,
REM and return a new URL to the internal resource.
REM The new URL can be used in place of the old URL.
Function LoadGraphicIntoDocument( oDoc As Object, cUrl$, cInternalName$ )
As String
Dim oBitmaps
Dim cNewUrl As String
' Get the BitmapTable from this drawing document.
' It is a service that maintains a list of bitmaps that are internal
' to the document.
oBitmaps = oDoc.createInstance( "com.sun.star.drawing.BitmapTable" )
' Add an external graphic to the BitmapTable of this document.
oBitmaps.insertByName( cInternalName, cUrl )
' Now ask for it back.
' What we get back is an different Url that points to a graphic
' which is inside this document, and remains with the document.
cNewUrl = oBitmaps.getByName( cInternalName )
LoadGraphicIntoDocument = cNewUrl
End Function
--
Alexandro Colorado
Help the Tabasco Relief efforts:
http://rootcoffee.blogspot.com/2007/11/race-to-save-mexico-flood-victims.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
