Coreldraw导出过滤器对象模型

Question

谁能帮我有关coreldraw中的exportfilter对象模型的问题？ 除了不了解示例代码的示例代码外，我找不到关于此主题的任何有用信息。 我是vba coreldraw的新手。

Dim exF as ExportFilter
From object browser ExportFilter has
Finish - method
HasDialog - properties
Reset - method
ShowDialog - method

My questions how many sample code that scattered on many forum about coreldraw vba can include for example,

With exF
    m_Compression = .Compression
    m_Smoothing = .Smoothing
    m_bOptimized = .Optimized
    m_Progressive = .Progressive
    m_Subformat = .Subformat
End With
I am sorry but i copy those above code from JPGExportOptions just to get the picture what the question i ask to this forum
How can i find and know that JPGExportFilter has
.Compression
.Smoothing
.Optimized
etc

 All this is JPGExportFilter object model, i just want to know why this properties or method does not reveal on object browser vba window and does not have any help associated with all those ExportFilter object model

如果我只能复制别人制作的程序，怎么称自己为专业程序员。 我只想了解ExportFilter类的详细信息。 不幸的是，很少有讨论coreldraw vba的书。 这个站点http://www.oberonplace.com/vba/filter10vba.htm很好，但是，我不仅需要列表，还需要更多信息，我需要解释该类的每个成员-属性和方法-以及如何在其中使用它真实代码。

谢谢

Answer 1

如果使用的是Corel Draw X7，则应该可以在%PROGRAMFILES%\\Corel\\CorelDRAW Graphics Suite X7\\Data找到对象模型的文档。 不幸的是，该文档无法在线获得参考或超链接。

在Corel Draw X7中，在要导出的对象上调用ExportEx，并以StructExportOptions对象的形式传递导出选项。 您可以阅读上述文档中有关选项的所有信息。

文档样本：

Sub Test() 
 Dim d As Document 
 Dim s As Shape 
 Dim opt As New StructExportOptions 
 Dim pal As New StructPaletteOptions 
 Dim Filter As ExportFilter 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateEllipse2(4, 5, 2) 
 s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 0) 
 opt.AntiAliasingType = cdrNormalAntiAliasing 
 opt.ImageType = cdrRGBColorImage 
 opt.ResolutionX = 72 
 opt.ResolutionY = 72 
 pal.PaletteType = cdrPaletteOptimized 
 pal.NumColors = 16  
 pal.DitherType = cdrDitherNone 
 Set Filter = d.ExportEx("C:\Temp\Doc.gif", cdrGIF, cdrCurrentPage, opt, pal) 
 If Filter.ShowDialog() Then 
  If Not Filter.Interlaced Then 
   MsgBox "Interlaced is not specified... Fixing this." 
   Filter.Interlaced = True 
  End If 
  Filter.Finish 
 Else 
  MsgBox "Export canceled" 
 End If 
End Sub