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 If Not .ShowDialog Then .Reset .Finish End If End With End Sub