ﾌｧｲﾙを最小化でｵｰﾌﾟﾝしつつ、ｵｰﾌﾟﾝ前のｳｨﾝﾄﾞｳをｱｸﾃｨﾌﾞ化

「ﾊﾟﾜｰｺﾋﾟｰのPartﾌｧｲﾙを最小化で開きつつ、開く前のｱｸﾃｨﾌﾞな'ｳｨﾝﾄﾞｳをｱｸﾃｨﾌﾞ状態にする」
と言う内容のご相談を頂きました。

正直な所、どのような操作を想定されているのかが、把握できていない為
目的の状態になっていない可能性もありますが･･･

'vba
Sub CATMain()
    'ﾊﾟﾜｰｺﾋﾟｰﾌｧｲﾙ ﾊﾟｽ
    Dim PowerCopy_path As String
    PowerCopy_path = "C:\temp\powercopy_part.CATPart"
    
    'ﾊﾟﾜｰｺﾋﾟｰﾌｧｲﾙ ｵｰﾌﾟﾝ前に現在のｱｸﾃｨﾌﾞな
    'ｳｨﾝﾄﾞｳを取得
    Dim BeforeActWin As Window
    Set BeforeActWin = CATIA.ActiveWindow
    
    'ﾊﾟﾜｰｺﾋﾟｰﾌｧｲﾙ ｵｰﾌﾟﾝ
    Dim objPspDoc As PartDocument
    Set objPspDoc = CATIA.Documents.Open(PowerCopy_path)
    
    'ﾊﾟﾜｰｺﾋﾟｰﾌｧｲﾙ のｳｨﾝﾄﾞｳ
    Dim ActiveWin As Window
    'Set ActiveWin = CATIA.ActiveWindow
    Set ActiveWin = CATIA.Windows.Item(CATIA.Windows.count)
    
    '最小化
    ActiveWin.WindowState = catWindowStateMinimized
    
    '最初のｱｸﾃｨﾌﾞなｳｨﾝﾄﾞｳをｱｸﾃｨﾌﾞ
    BeforeActWin.Activate
    
    'ここで何かしらの処理
    Stop
    
    'ﾊﾟﾜｰｺﾋﾟｰﾌｧｲﾙ ｸﾛｰｽﾞ
    objPspDoc.Close
End Sub

・ﾌｧｲﾙをｵｰﾌﾟﾝする前に、現状のｱｸﾃｨﾌﾞｳｨﾝﾄﾞｳを取得しておきます。
　　（Set BeforeActWin = CATIA.ActiveWindow）
・ｳｨﾝﾄﾞｳの最小化はWindowStateﾌﾟﾛﾊﾟﾃｨで可能です。
　　（ActiveWin.WindowState = catWindowStateMinimized）