' [064.xls]



' [Module1] のコード
'★★☆　画面サイズを取得する.　☆★★

Option Explicit

Sub start()
Dim Maxh As Long
Dim Maxw As Long
    With Application
    
        '画面表示を更新しないように設定
        .ScreenUpdating = False
    
        'Excelを最大表示して、その時点の高さと幅を変数に取り込む
        .WindowState = xlMaximized
        
        Maxh = .Height
        Maxw = .Width
    
        '元のサイズに戻しておく
        .WindowState = xlNormal
        
        '画面表示を更新するように設定
        .ScreenUpdating = True
        
    End With
 
    MsgBox "画面の高さは " & Maxh & _
        "　幅は " & Maxw & " ポイントです"
        
End Sub