Sub Test() Dim d As Document Dim s As Shape Dim i As ImportFilter Set d = CreateDocument Set i = d.ActiveLayer.ImportEx("C:\Example.jpg", cdrJPEG) If i.HasDialog Then i.ShowDialog i.Finish Else i.Reset i.Finish End IfEnd Sub