Bonjour,
Je voudrais exporter une image sans affichage.en fait, je charge
l'image, et j'en change les dimensions.
Par contre je ne trouve pas de pistes pour sauvegarder l'image : je ne trouve pas comment "passer" l'image au filtre d'export. Le but du jeu est de redimesionner silencieusement des images g�n�r�e par l'export en HTMl de textes writer contenant des formules.
Si quelqu'un avait une id�e, je suis preneur ;-)
Voil� le code :
sub retailPics
dim monPath as string
dim caractere as string
dim i as integer
dim position as integer
dim fileGif as string
Dim sGraphicURL As String
Dim sGraphicService As String
' Dim oDrawPages As Object, oDrawPage As Object
Dim oGraphic As Object
Dim aArgs (2) as new com.sun.star.beans.PropertyValue
Dim aURL as new com.sun.star.util.URL
monPath = thisComponent.url
for i = 1 to len(monPath)
caractere = mid(monPath, i, 1)
if caractere="/" then
position = i
endif
next
monPath = left(monpath,position)
fileGif=dir(monPath & "*.gif",0)
do while len(fileGif)>0
sGraphicURL = fileGif
sGraphicService = "com.sun.star.drawing.GraphicObjectShape"
oGraphic = ThisComponent.createInstance(sGraphicService)
oGraphic.GraphicURL = sGraphicURL
Dim TheSize as new com.sun.star.awt.Size
TheSize.width=oGraphic.Size.width*0.8
TheSize.height=oGraphic.Size.height*0.8
oGraphic.setsize(TheSize)
xExporter = createUnoService( "com.sun.star.drawing.GraphicExportFilter" ) xExporter.SetSourceDocument(xSelection)
aURL.complete = fileGif
aArgs(0).Name = "MediaType"
aArgs(0).Value = "image/gif"
aArgs(1).Name = "URL"
aArgs(1).Value = aURL
aArgs(2).Name = "FilterData"
aArgs(2).Value = aFilterData
xExporter.filter( aArgs() )
fileGif = dir
loop
end sub
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
