| Name | Type | Description |
|---|---|---|
| hWnd |
Long
|
Sub Test()
Dim ex As ExportFilter
Dim d As Document
Set d = CreateDocument
d.ActiveLayer.CreateEllipse2 4, 4, 1
Set ex = d.ExportEx("c:\test.jpg", cdrJPEG)
With ex
If .HasDialog Then
.ShowDialog
End If
.Finish
End With
End Sub