View Single Post
  #2  
Old 02-03-2013, 06:08
AVP AVP is offline
Junior Member
 
Join Date: May 2009
Posts: 13
Default Simple Import of file object

try this

Code:
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
Reply With Quote