Java, C++, C#, Delphi... - Using the UNO bridges
calorie
Posts: 6 Joined: Thu Aug 20, 2009 3:28 am
Post
by calorie » Thu Sep 17, 2009 9:37 am
HI all
I wrote a java program, and use impress_html_export filter for to export html files. But without any filter data, the quality of image is poor, so I want to improve the image quality, I believe it can be done by filling some filter data
The problem is , where can I find those filter data?
Thanks!
Title Edited. A descriptive title for posts helps others who are searching for solutions and increases your chances of a reply. (TheGurkha, Moderator)
OpenOffice on Windows 3.1
ms777
Volunteer
Posts: 207 Joined: Mon Oct 08, 2007 1:33 am
Post
by ms777 » Thu Sep 17, 2009 8:45 pm
Hi,
try this ...
Good luck,
ms777
Code: Select all
Sub ConvertPPTtoHTML
Dim aFilterData (12) as new com.sun.star.beans.PropertyValue
aFilterData(0).Name = "PublishMode"
aFilterData(0).Value = 0
aFilterData(1).Name = "IsExportContentsPage"
aFilterData(1).Value = false
aFilterData(2).Name ="SlideSound"
aFilterData(2).Value = false
aFilterData(3).Name ="HiddenSlides"
aFilterData(3).Value = false
aFilterData(4).Name ="IsUseDocumentColors"
aFilterData(4).Value = true
aFilterData(5).Name ="Format" '0=gif, 1=jpg, 2=png
aFilterData(5).Value = 1
aFilterData(6).Name ="Width"
aFilterData(6).Value = 2000
aFilterData(7).Name ="Compression"
aFilterData(7).Value = "50%" ' <- this must be string
'see http://pmwiki.org/pmwiki/uploads//Cookbook/DC.py.txt for other options
Dim aArgs(2) as new com.sun.star.beans.PropertyValue
aArgs(0).Name = "FilterName"
aArgs(0).Value = "impress_html_Export"
aArgs(1).Name = "FilterData"
aArgs(1).Value = aFilterData
ThisComponent.storeToURL( ConvertToURL( "C:\export.html" ), aArgs)
End Sub
calorie
Posts: 6 Joined: Thu Aug 20, 2009 3:28 am
Post
by calorie » Mon Sep 21, 2009 3:56 am
ms777 wrote: Hi,
try this ...
Good luck,
ms777
Code: Select all
Sub ConvertPPTtoHTML
Dim aFilterData (12) as new com.sun.star.beans.PropertyValue
aFilterData(0).Name = "PublishMode"
aFilterData(0).Value = 0
aFilterData(1).Name = "IsExportContentsPage"
aFilterData(1).Value = false
aFilterData(2).Name ="SlideSound"
aFilterData(2).Value = false
aFilterData(3).Name ="HiddenSlides"
aFilterData(3).Value = false
aFilterData(4).Name ="IsUseDocumentColors"
aFilterData(4).Value = true
aFilterData(5).Name ="Format" '0=gif, 1=jpg, 2=png
aFilterData(5).Value = 1
aFilterData(6).Name ="Width"
aFilterData(6).Value = 2000
aFilterData(7).Name ="Compression"
aFilterData(7).Value = "50%" ' <- this must be string
'see http://pmwiki.org/pmwiki/uploads//Cookbook/DC.py.txt for other options
Dim aArgs(2) as new com.sun.star.beans.PropertyValue
aArgs(0).Name = "FilterName"
aArgs(0).Value = "impress_html_Export"
aArgs(1).Name = "FilterData"
aArgs(1).Value = aFilterData
ThisComponent.storeToURL( ConvertToURL( "C:\export.html" ), aArgs)
End Sub
It works!
Thanks so much!
OpenOffice on Windows 3.1