Simple Import of file object

[dungbtl]

Looking for a piece code that imports an object file.
this works but puts it where it originates:

Sub importgrommet()
ActiveLayer.Import "C:\@_Drop\pins.cdr"
End Sub

Instead of placing this object on page
Im looking to have it act like when you IMPORT and object.
The object is with the mouse and you get the choice where to place it.
You click and it drops in place. Not where it originally was made from.
Then i would assign a shortcut for it when needed.

Working with X4

Thanks All

[AVP]

try this

Sub importgrommet()
 On Error GoTo myerr
    ActiveDocument.ReferencePoint = cdrCenter
    Dim x As Double, y As Double
    Dim Shift As Long
    b = False
    b = ActiveDocument.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross)
    Optimization = True
    ActiveDocument.BeginCommandGroup "import"
    ActiveLayer.Import "C:\@_Drop\pins.cdr"
    ActiveShape.SetPosition x, y
myerr:
    ActiveDocument.EndCommandGroup
    Optimization = False
    ActiveWindow.Refresh
End Sub

[dungbtl]

Seem to get a compile error. I found another post a while back...

Importing to "mouse click position"

I dont know what happens as I get errors. Seems like what im after.

But hopefully your code will do it

Originally Posted by AVP

try this

Sub importgrommet()
 On Error GoTo myerr
    ActiveDocument.ReferencePoint = cdrCenter
    Dim x As Double, y As Double
    Dim Shift As Long
    b = False   <---  Compile Error:  Can't find project or library 
    b = ActiveDocument.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross)
    Optimization = True
    ActiveDocument.BeginCommandGroup "import"
    ActiveLayer.Import "C:\@_Drop\pins.cdr"
    ActiveShape.SetPosition x, y
myerr:
    ActiveDocument.EndCommandGroup
    Optimization = False
    ActiveWindow.Refresh
End Sub

Thanks !

[AVP]

Sub importgrommet()
 On Error GoTo myerr
    ActiveDocument.ReferencePoint = cdrCenter
    Dim x As Double, y As Double, Shift As Long, b As Boolean
    b = False
    b = ActiveDocument.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross)
    Optimization = True
    ActiveDocument.BeginCommandGroup "import"
    ActiveLayer.Import "C:\@_Drop\pins.cdr"
    ActiveShape.SetPosition x, y
myerr:
    ActiveDocument.EndCommandGroup
    Optimization = False
    ActiveWindow.Refresh
End Sub

[dungbtl]

PERFECT!

Made me day ...

Donuts and coffee down in the VIP room

Tell em Dungbtl sent ya

[SteveDude]

Originally Posted by dungbtl

Looking for a piece code that imports an object file.
this works but puts it where it originates:

Sub importgrommet()
ActiveLayer.Import "C:\@_Drop\pins.cdr"
End Sub

Instead of placing this object on page
Im looking to have it act like when you IMPORT and object.
The object is with the mouse and you get the choice where to place it.
You click and it drops in place. Not where it originally was made from.
Then i would assign a shortcut for it when needed.

Thanks All

Shelby turned me on this...

Sub TestInteractiveImport()
    ActiveDocument.InteractiveImport "C:\@_Drop\pins.cdr"
End Sub

[dungbtl]

Thanks Steve...

Im sure it works great for X6

im in X4 & 5

any chance for a cleaner code for that?