[AlexV]

Имеет место быть такой вот код, с помощью которого из под Excel получаем доступ к Autocad

Код:

[Выделить все]

Dim Acadobj As Object
'...
On Error Resume Next
'...
Set Acadobj = GetObject(, "Autocad.Application")
If Err <> 0 Then
 Err.Clear
 Set Acadobj = CreateObject("Autocad.Application")
 If Err <> 0 Then
  end
 End If
If Acadobj.Application.documents.Count = 0 Then end
End If

Вопрос, как теперь окно Акада "вытащить" из под excel и сделать активным? Возможно ли это средствами VBA или здесь надо использовать API-функции?

[Кулик Алексей aka kpblc]

AcadObj.Visible = True
кажется, так