openiffice转换附件格式为pdf，怎么加入jegp压缩的质量选择

Question

C#winformopenoffice宏

Answer 1

你好，你先看看这个网页，对你有帮助
https://wiki.openoffice.org/wiki/API/Tutorials/PDF_export#How_to_use_it_from_OOo_Basic
下面是我自己的理解，希望对你有帮助  
dim param(2) as new  com.sun.star.beans.PropertyValue
   param(0) =  MakePropertyValue( "FilterName", "writer_pdf_Export")
   param(1) =  MakePropertyValue( "FilterData",MakePropertyValue("Quality",100) )
   oDoc.storeToURL( cURL,param())

Answer 2

还有这个网页，一些过滤器导出支持的格式
https://wiki.openoffice.org/wiki/Framework/Article/Filter/FilterList_OOo_3_0

Answer 3

大神还是不行呀，param(0) =  MakePropertyValue( "FilterName", "writer_pdf_Export")我看了这个属性好像是使得配置为上一次使用的配置，aram(1) =  MakePropertyValue( "FilterData",MakePropertyValue("Quality",100) )这个设置也没有成功呀

Answer 4

大神还是不行呀，param(0) =  MakePropertyValue( "FilterName", "writer_pdf_Export")我看了这个属性好像是使得配置为上一次使用的配置，aram(1) =  MakePropertyValue( "FilterData",MakePropertyValue("Quality",100) )这个设置也没有成功呀

Answer 5

大神还是不行呀，param(0) =  MakePropertyValue( "FilterName", "writer_pdf_Export")我看了这个属性好像是使得配置为上一次使用的配置，aram(1) =  MakePropertyValue( "FilterData",MakePropertyValue("Quality",100) )这个设置也没有成功呀
Sub Export( xObject, sFileUrl As String, aFilterData )
   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 = sFileUrl
   aArgs(0).Name  = "MediaType"
   aArgs(0).Value = "image/jpeg"
   aArgs(1).Name  = "URL"
   aArgs(1).Value = aURL
   aArgs(2).Name  = "FilterData"
   aArgs(2).Value = aFilterData
   xExporter.filter( aArgs() )
End SubSub ExportCurrentPageOrSelection
   'creating filter dependent filter properties
   Dim aFilterData (4) as new com.sun.star.beans.PropertyValue
   aFilterData(0).Name  = "PixelWidth"        '
   aFilterData(0).Value = 1000
   aFilterData(1).Name  = "PixelHeight"
   aFilterData(1).Value = 1000
   aFilterData(2).Name  ="LogicalWidth"
   aFilterData(2).Value = 1000     
   aFilterData(3).Name  ="LogicalHeight"
   aFilterData(3).Value = 1000
   aFilterData(4).Name  ="Quality"
   aFilterData(4).Value = 60
   Dim sFileUrl As String
   sFileUrl = "file:///d:/test2.jpg"   xDoc = thiscomponent
   xView = xDoc.currentController
   xSelection = xView.selection
   If isEmpty( xSelection ) then
       xObj = xView.currentPage
   else
       xObj = xSelection
   End If
   Export( xObj, sFileUrl, aFilterData() )  
End Sub这段代码是转化jpeg的，你看看对你有没有启发