minhhn0205 Ответов: 1

Как открыть приложение из панели задач с помощью VBA?

Приложение (например: acad.exe [AutoCAD]) находится на панели задач (статус минимальный), я хочу восстановить или развернуть его в VBA.

Разве это возможно?

Любые советы по этому поводу будут вам очень полезны.

Что я уже пробовал:

С помощью приведенного ниже кода я получил имена окон приложений, доступных на панели задач:
Private Sub AppActivates(WindowName As String)

    Dim WD, task, n As Long
    Set WD = CreateObject("Word.Application")

    For Each task In WD.Tasks
        MsgBox task.Name
    Next

    WD.Quit
    Set WD = Nothing

End Sub


Пример:

Basic_vba.формат PDF - программа Adobe акробат ридер постоянного тока
AutoCAD Mechanical 2016 - [sample_model. dwg]
20170424.txt - TeraPad
...

Richard MacCutchan

Вам нужно отправить сообщение Windows приложению, которое сделает его активным. Но что потом?

1 Ответов

Рейтинг:
8

Maciej Los

Взгляните сюда: Использование Visual Basic с AutoCAD-Andrew G. Roe - Google Books[^]
или здесь: AutoCAD 2004 VBA: справочник программиста-Джо Сатфин - Google Books[^] 


Private Sub ActivateAutoCad()
 
    Dim ACApp As Object

    On Error Resume Next 
    Set ACApp = GetObject(,"AutoCAD.Application")
    If Err Then
        Err.Clear
        MsgBox("AutoCAD application is not running")
    Else
        ACApp.Activate
        'or
        'ACApp.SetFocus
        'or
        'ACApp.Visible = True
    End If

    Set ACApp = Nothing
 
End Sub


Другой вариант-использовать такое утверждение:
AppActivate "AutoCAD"


Последнее замечание: я не специалист по AutoCAD.