VBA Import fails but CorelScript FileImport works on PC shape - BUG?

[runflacruiser]

HI.
Here's some test code.
Without moving the shape it appears blank when using VBA import.

Sub test2()
    ActiveLayer.Import "D:\All Graphics\grommet_silver.cdr"
    ActiveShape.Move 1, 1 'needs to be moved
End Sub
Sub test3() 'works
    CorelScript.FileImport "D:\All Graphics\grommet_silver.cdr"
    
End Sub

Use test PC cdr file attached and set a correct path.
~John

[shark]

Use Refresh after ActiveLayer.Import instead of ActiveShape.Move

[runflacruiser]

HI.
After importing try distributing some copies using virtualshape.getcopy.
I tried refresh and it won't work. The copies still wouldn't show up correctly. I ended up using regular old duplicate instead.
~John

[shelbym]

VirtualShapes will not show up with a Refresh you need to Call Document.LogCreateShape to log the real shape creation transaction.

-Shelby

[runflacruiser]

HI.
Try Os's "Agent Smith" shape replacer macro using the cdr file above...

~John