Attribute VB_Name = "testwindowope5"
Sub テスト()
    
    Dim window1 As Window
    
    Windows("VBAsample.xls").Activate
    Set window1 = ActiveWindow
    
    ActiveWindow.Zoom = 200
    MsgBox "200%に設定しました"

    Range("B2:E6").Select
    ActiveWindow.Zoom = True
    MsgBox "選択範囲を基準に拡大表示しました"
    
End Sub