Coreldraw 내보내기 필터 개체 모델

Question

누구든지coreldraw의 개체 모델에 대해 저를 도울 수 있습니까? 어떻게 이해할 수없는 샘플 코드를 제외하고는이 주제에 대한 좋은 정보를 찾을 수 없습니까? 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

당신이 코렐 그리기 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