CATIAをアクティブにする

昔はExcelのマクロからアウトプロセスでCATIAの操作していたんですが、
なんせ遅いんでかなり以前に止めました。

しかし、必要に迫られ作っているものの、昔のものなんてとっくに
捨てていてやっていたことをすっかり忘れている。

Excelからのマクロで処理後、CATIAがアクティブな状態で終わりたいんですが
それも忘れていることの1つ。

探してみたらこんな感じで出来ました。（昔もやっていました）

'excel側です
Private Sub activateCat()

    Dim cat As Object
    Set cat = getCatia()
    
    AppActivate cat.Caption
    
End Sub

Private Function getCatia() As Object

    On Error GoTo GetCatiaErr
        Set getCatia = GetObject(, "CATIA.Application")
    
    Exit Function
GetCatiaErr:
    MsgBox "CATIAが起動していません!", vbExclamation
    End
    
End Function

いつもお世話になっちゃうな　Ofice TANAKAさん。