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) ex.FinishEnd Sub