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 WithEnd Sub