To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=4499





------- Additional comments from [EMAIL PROTECTED] Fri Feb 23 09:15:27 +0000 
2007 -------
The export filters (Graphics export) are not saving the DPI setting in the final
image file header.

PLEASE HELP!  Although I am using ImageMagik to fix the resolution setting in
the image, I want to be able to do this from my macro.

(Please note...All my graphics are the same size...so this macro works)

This is an export from Draw

Macro:
-----------------------------

   Dim aFilterData (10) as new com.sun.star.beans.PropertyValue

   aFilterData(0).Name  = "PixelWidth"
   aFilterData(0).Value = 3307
   
   aFilterData(1).Name  = "PixelHeight"
   aFilterData(1).Value = 2336
   
   aFilterData(2).Name  = "LogicalWidth"
   aFilterData(2).Value = 140
   
   aFilterData(3).Name  = "LogicalHeight"
   aFilterData(3).Value = 98.89
   
   aFilterData(4).Name  = "Quality"
   aFilterData(4).Value = 80
   
   aFilterData(5).Name  = "ColorMode"
   aFilterData(5).Value = 0
   
   aFilterData(6).Name  = "ExportMode"
   aFilterData(6).Value = 1
   
   aFilterData(7).Name  = "Resolution"
   aFilterData(7).Value = 600

   xDoc = thiscomponent
   xView = xDoc.currentController
   xSelection = xView.selection
   
   If isEmpty( xSelection ) then
       xObj = xView.currentPage
   else
       xObj = xSelection
   End If
   xExporter = createUnoService( "com.sun.star.drawing.GraphicExportFilter" )
   xExporter.SetSourceDocument( xObject )

   Dim aArgs (2) as new com.sun.star.beans.PropertyValue
   Dim aURL as new com.sun.star.util.URL

   aURL.complete = 'myfile.jpg'
      
   aArgs(0).Name  = "MediaType"
   aArgs(0).Value = "image/jpeg"
   aArgs(1).Name  = "URL"
   aArgs(1).Value = sFileUrl
   aArgs(2).Name  = "FilterData"
   aArgs(2).Value = aFilterData
   
   xExporter.filter( aArgs() )

--------------------------
Macro ends.

This macro produces the image in the correct size, but the DPI is wrong.  

The lines

   aFilterData(7).Name  = "Resolution"
   aFilterData(7).Value = 600

Should be telling the export filter to set the DPI setting in the image header.
 But it is not. 

This appears in OpenOffice 2.0 and 2.1.  And seems to be common in all the Image
export filters (not just jpeg).

Is this going to be fixed?

---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to