練習小課堂

（1）可以設置Application對象的某些屬性來更改Excel的界面。

運行Excel程序，進入VBE，在立即窗口裡運行表4-2中的每句代碼，然後把看到的結果寫下來。

表4-2

在【立即窗口】中輸入代碼修改區域代碼執行後的效果Application.Caption = 「我的Excel」標題欄Application.Caption = 「Microsoft Excel」標題欄Application.DisplayFormulaBar = False編輯欄Application.DisplayStatusBar = False狀態欄Application.StatusBar = 「正在計算，請稍候……」狀態爛Application.StatusBar = False狀態欄ActiveWindow.DisplayHeadings = False行標和列標

（2）可以更改的項目很多，如果你不知道該用什麼代碼，別忘記使用錄製宏功能。

手動完成並錄下表4-3列出的操作，然後將相應的代碼填在表格裡。

表4-3

代碼執行後的效果代碼隱藏工作表標籤隱藏水平滾動條隱藏垂直滾動條顯示繪圖工具欄隱藏常用工具欄隱藏網格線

參考答案

（1）

在立即窗口中輸人代碼修改區域代碼執行後的效果Application.Caption = 「我的Excel」標題欄更改標題欄中顯示的程序名稱為「我的Excel」Application.Caption = 「Microsoft Excel」標題欄更改標題欄中顯示的程序名稱為默認的「Microsoft Excel」Application.DisplayFormulaBar = False編輯欄隱藏【編輯欄】Application.DisplayStatusBar = False狀態欄隱藏【狀態欄】Application.StatusBar = 「正在計算，請稍後……」狀態爛更改【狀態欄】中顯示信息為「正在計算，請稍後……」Application.StatusBar = False狀態欄恢復【狀態欄】為初始狀態ActiveWindow.DisplayHeadings =False行標和列標隱藏【行標】和【列標】

（2）

代碼執行後的效果代碼隱藏工作表標籤ActiveWindow.DisplayWorkbookTabs = False隱藏水平滾動條ActiveWindow.DisplayHorizontalScrollBar = False隱藏垂直滾動條ActiveWindow.DisplayVerticalScrollBar = False顯示繪圖工具欄Application.CommandBars(「Drawing」).Visible = False隱藏常用工具欄Application.CommandBars(「Standard」).Visible = False隱藏網格線ActiveWindow.DisplayGridlines = False

4.2.6　她和她的孩子們

把對像模型這本家譜打開，Application是家族的起點，開枝散葉，不同的孩子住在不同的地方。

可以通過引用Application對象的屬性返回不同的子對象。

所以，引用對像必須把每一級的對象名稱寫清楚。如：

引用Application的每一個子對象都可以使用這種引用方式，但對於某些特殊的對象卻不必這麼嚴謹，如想在當前選中的單元格裡輸入數值300，因為「選中的單元格」是一個特殊的對象，所以代碼可以寫為：

Application可以省略不寫，直接將式碼寫為：

除了Selection，還可以使用其他屬性引用某些特殊對象，如表4-4所示。

表4-4　Application的常用屬性

屬性說明ActiveCell當前活動單元格ActiveChart當前活動工作簿中的活動圖表ActiveSheet當前活動工作簿中的活動工作表ActiveWindow當前活動窗口ActiveWorkbook當前活動工作簿Charts當前活動工作簿中所有的圖表工作表Selection當前活動工作簿中所有選中的對象 Sheets當前活動工作簿中所有Sheet對象，包括普通工作表、圖表工作表、Ms Excel 4.0宏表工作表和Ms Excel 5.0對話框工作表Worksheets當前活動工作簿中的所有Worksheet對像（普通工作表）Workbooks當前所有打開的工作簿