EXCEL VBA 表示画面のコントロール③（ウインドウのコピーを同期、並べて表示・表示画面サイズを取得・設定）

EXCEL VBA 表示画面のコントロール③（ウインドウのコピーを同期、並べて表示・表示画面のサイズを取得・表示画面サイズを設定）

EXCEL VBA ウインドウのコピーを開く（上下に表示・左右に表示）コピーした画面を縦方向・横方向に同期します。

'
'
Sub WindowCopy00() 'NewWinddows ウインドウのコピーを開く（上下に表示）

    ActiveWindow.NewWindow  'アクティブウィンドウのコピーを開きます。
    Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal, _
    ActiveWorkbook:=True, _
    Syncvertical:=True '縦方向にスクロール同期します。

End Sub
'


'
'
Sub WindowCopy01()  'NewWinddows ウインドウのコピーを開く（左右に表示）

    ActiveWindow.NewWindow  'アクティブウィンドウのコピーを開きます。
    Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical, _
    ActiveWorkbook:=True, _
    SyncHorizontal:=True '横方向にスクロール同期します。

End Sub
'

EXCEL VBA エクセルウインドウのサイズを取得する。

'
'
Sub UsableWith00() 'EXCELのウィンドウサイズを取得する。

    Dim EXC_Width, EXC_Height As Double
    
    With Windows("ウインドウサイズ.xlsm") 'サイズを変更するウィンドウ名を指定します。

        EXC_Width = Application.UsableWidth  '幅のサイズを取得します。
        EXC_Height = Application.UsableHeight  '縦のサイズを取得します。
    
    End With
    
    MsgBox "幅：" & EXC_Width & "　×　高：" & EXC_Height  '取得した幅・高さのサイズをメッセージボックスで表示します。
    
End Sub
'

EXCEL VBA エクセルウィンドウのサイズを指定する・ウインドウサイズを変更する。

'
'
Sub UsableWith02() 'EXCELのウインドサイズの横幅元の1/3にする。
    
    With Windows("ウインドウサイズ") 'サイズを変更するウィンドウ名を指定します。
        .WindowState = xlNormal '表示サイズを標準サイズに指定します。
        .Width = Application.UsableWidth / 3  '幅のサイズを1/3にする。
        .Top = 0 'ウィンドウのｄ表示位置を上から０ポイント
        .Left = 0 'ウィンドウの表示位置を左から０ポイント
    End With
End Sub
'



'
'
Sub UsableWith03() 'EXCELのウィンドウサイズの縦幅元の1/2にする。

    With Windows("ウインドウサイズ")  'サイズを変更するウィンドウ名を指定します。
        .WindowState = xlNormal  '表示サイズを標準サイズに指定します。
        .Height = (Application.UsableHeight / 2) + 150  '縦のサイズを1/2にする
        .Top = 0 'ウィンドウのｄ表示位置を上から０ポイント
        .Left = 0 'ウィンドウの表示位置を左から０ポイント
    End With
End Sub
'

EXCEL VBA エクセルのウィンドウの上下に表示・左右に表示・重ねて表示（ブックの整列・ウインドウを整列する）

'
'
Sub WindowsArrange01()  'ウィンドウを並べて表示する。 (上下に並べて表示)

    Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal

End Sub
'
'
'
Sub WindowsArrange02()  'ウィンドウを並べて表示する。 (左右に並べて表示)

    Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical

End Sub
'

'
'
'
Sub WindowsArrange03()  'ウィンドウを並べて表示する。 (重ねて表示)

    Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade

End Sub
'