代碼運行結(jié)果：

代碼截圖：

代碼文本：

Public Sub 獲取窗口高度和寬度()

    Dim myHeight As Double, myWidth As Double

    myHeight = Application.Height

    myWidth = Application.Width

    MsgBox "Excel主應(yīng)用程序窗口的高度和寬度分別為：" _

        & vbCrLf & "高度：" & myHeight _

        & vbCrLf & "寬度：" & myWidth, vbInformation

End Sub

注釋：

我們用Dim語句創(chuàng)建變量(聲明變量)，Dim語句的基本語法如下：Dim 變量名 AS 數(shù)據(jù)類型。此處數(shù)據(jù)類型：Double為雙精度浮點數(shù)值。