Sub TestImport() Dim im As ImportFilter Dim si As StructImportOptions Set si = CreateStructImportOptions si.LinkBitmapExternally = True Set im = ActiveLayer.ImportEx("c:\primitives.jpg", , si) im.FinishEnd Sub