窗口Window對(duì)象基本操作應(yīng)用示例

-.zWindow對(duì)象代表一個(gè)窗口，約有48個(gè)屬性和14個(gè)方法，能對(duì)窗口特性進(jìn)展設(shè)置和操作。Window對(duì)象是Windows集合中的成員，對(duì)于Application對(duì)象來說，Windows集合包含該應(yīng)用程序中的所有窗口；對(duì)于Workbook對(duì)象來說，Windows集合只包含指定工作簿中的窗口。下面介紹一些例如，以演示和說明Window對(duì)象及其屬性和方法的運(yùn)用。例如02-01：激活窗口(Activate方法)SubSelectWindow()

DimiWinAsLong,iAsLong,bWin

MsgBo*"依次切換已翻開的窗口"

iWin=Windows.Count

MsgBo*“您已翻開的窗口數(shù)量為：〞&iWin

Fori=1ToiWin

Windows(i).Activate

bWin=MsgBo*("您激活了第"&i&"個(gè)窗口，還要繼續(xù)嗎.",vbYesNo)

IfbWin=vbNoThenE*itSub

Ne*ti

EndSub例如02-02：窗口狀態(tài)(WindowState屬性)[例如02-02-01]

SubWindowStateTest()

MsgBo*"當(dāng)前活開工作簿窗口將最小化"

Windows(1).WindowState=*lMinimized

MsgBo*"當(dāng)前活開工作簿窗口將恢復(fù)正常"

Windows(1).WindowState=*lNormal

MsgBo*"當(dāng)前活開工作簿窗口將最大化"

Windows(1).WindowState=*lMa*imized

EndSub例如說明：使用WindowState屬性可以返回或者設(shè)置窗口的狀態(tài)。例如中，常量*lMinimized、*lNormal和*lMa*imized分別代表窗口不同狀態(tài)值，Windows(1)表示當(dāng)前活動(dòng)窗口?？梢允褂肳indows(inde*)來返回單個(gè)的Window對(duì)象，其中的inde*為窗口的名稱或編號(hào)，活動(dòng)窗口總是Windows(1)。

[例如02-02-02]

SubtestWindow()

'測試E*cel應(yīng)用程序窗口狀態(tài)

MsgBo*"應(yīng)用程序窗口將最大化"

Application.WindowState=*lMa*imized

CalltestWindowState

MsgBo*"應(yīng)用程序窗口將恢復(fù)正常"

Application.WindowState=*lNormal

MsgBo*"應(yīng)用程序窗口已恢復(fù)正常"

'測試活開工作簿窗口狀態(tài)

MsgBo*"當(dāng)前活開工作簿窗口將最小化"

ActiveWindow.WindowState=*lMinimized

CalltestWindowState

MsgBo*"當(dāng)前活開工作簿窗口將最大化"

ActiveWindow.WindowState=*lMa*imized

CalltestWindowState

MsgBo*"當(dāng)前活開工作簿窗口將恢復(fù)正常"

ActiveWindow.WindowState=*lNormal

CalltestWindowState

MsgBo*"應(yīng)用程序窗口將最小化"

Application.WindowState=*lMinimized

CalltestWindowState

EndSub‘*********************************************************

SubtestWindowState()

SelectCaseApplication.WindowState

Case*lMa*imized:MsgBo*"應(yīng)用程序窗口已最大化"

Case*lMinimized:MsgBo*"應(yīng)用程序窗口已最小化"

Case*lNormal:

SelectCaseActiveWindow.WindowState

Case*lMa*imized:MsgBo*"當(dāng)前活開工作簿窗口已最大化"

Case*lMinimized:MsgBo*"當(dāng)前活開工作簿窗口已最小化"

Case*lNormal:MsgBo*"當(dāng)前活開工作簿窗口已恢復(fù)正常"

EndSelect

EndSelect

EndSub例如說明：本例如有兩個(gè)程序，其中testWindow()是主程序，調(diào)用子程序te*tWindowState()，演示了應(yīng)用程序窗口和工作簿窗口的不同狀態(tài)。當(dāng)前活動(dòng)窗口一般代表當(dāng)前活開工作簿窗口，讀者可以在VBE編輯器中按F8鍵逐語句運(yùn)行testWindow()程序，觀察E*cel應(yīng)用程序及工作簿窗口的不同狀態(tài)。此外，在子程序中，還運(yùn)用了嵌套的SelectCase構(gòu)造。

[例如02-02-03]

SubSheetGradualGrow()

Dim*AsInteger

WithActiveWindow

.WindowState=*lNormal

.Top=1

.Left=1

.Height=50

.Width=50

For*=50ToApplication.UsableHeight

.Height=*

Ne*t*

For*=50ToApplication.UsableWidth

.Width=*

Ne*t*

.WindowState=*lMa*imized

EndWith

EndSub例如說明：本例如將動(dòng)態(tài)演示工作簿窗口由小到大直至最大化的變化過程。在運(yùn)行程序時(shí)，您可以將VBE窗口縮小，從而在工作簿中查看動(dòng)態(tài)效果，也可以在E*cel中選擇菜單中的宏命令執(zhí)行以查看效果。例如02-03：切換顯示工作表元素[例如02-03-01]

SubtestDisplayHeading()

MsgBo*“切換顯示/隱藏行列標(biāo)號(hào)〞

ActiveWindow.DisplayHeadings=NotActiveWindow.DisplayHeadings

EndSub例如說明：本例如切換是否顯示工作表中的行列標(biāo)號(hào)。運(yùn)行后，工作表中的行標(biāo)號(hào)和列標(biāo)號(hào)將消失；再次運(yùn)行后，行列標(biāo)號(hào)重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消行列標(biāo)號(hào)的顯示，如ActiveWindow.DisplayHeadings=False；而將該屬性設(shè)置為True，則顯示行列標(biāo)號(hào)。

[例如02-03-02]

SubtestDisplayGridline()

MsgBo*“切換顯示/隱藏網(wǎng)格線〞

ActiveWindow.DisplayGridlines=NotActiveWindow.DisplayGridlinesEndSub例如說明：本例如切換是否顯示工作表中的網(wǎng)格線。運(yùn)行后，工作表中的網(wǎng)格線消失，再次運(yùn)行后，網(wǎng)格線重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消網(wǎng)格線顯示，如ActiveWindow.DisplayGridlines=False；而將該屬性設(shè)置為True，則顯示網(wǎng)格線。

[例如02-03-03]

SubDisplayHorizontalScrollBar()

MsgBo*“切換顯示/隱藏水平滾動(dòng)條〞

ActiveWindow.DisplayHorizontalScrollBar=

_

NotActiveWindow.DisplayHorizontalScrollBar

EndSub例如說明：本例如切換是否顯示工作表中的水平滾動(dòng)條。運(yùn)行后，工作表中的水平滾動(dòng)條消失，再次運(yùn)行后，水平滾動(dòng)條重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消水平滾動(dòng)條，如ActiveWindow.DisplayHorizontalScrollBar=False；而將該屬性設(shè)置為True，則顯示水平滾動(dòng)條。同理，DisplayVerticalScrollBar屬性將用來設(shè)置垂直滾動(dòng)條。

[例如02-03-04]

SubDisplayScrollBar()

MsgBo*"切換顯示/隱藏水平和垂直滾動(dòng)條"

Application.DisplayScrollBars=Not(Application.DisplayScrollBars)

EndSub例如說明：本例如切換是否顯示工作表中的水平和垂直滾動(dòng)條。運(yùn)行后，工作表中的水平和垂直滾動(dòng)條同時(shí)消失，再次運(yùn)行后，水平和垂直滾動(dòng)條重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消水平和垂直滾動(dòng)條顯示，如Application.DisplayScrollBars=False；而將該屬性設(shè)置為True，則顯示水平和垂直滾動(dòng)條。例如02-04：顯示公式(DisplayFormulas屬性)SubDisplayFormula()

MsgBo*“顯示工作表中包含公式的單元格中的公式〞

ActiveWindow.DisplayFormulas=True

EndSub例如說明：本程序運(yùn)行后，工作表中含有公式的單元格將顯示公式而不是數(shù)值。假設(shè)要顯示數(shù)值，則將該屬性設(shè)置為False，或者，如果工作表中的公式顯示的是結(jié)果數(shù)值，則該屬性為False。例如02-05：顯示/隱藏工作表標(biāo)簽(DisplayWorkbookTabs屬性)SubtestDisplayWorkbookTab()

MsgBo*“隱藏工作表標(biāo)簽〞

ActiveWindow.DisplayWorkbookTabs=False

EndSub例如說明：本程序運(yùn)行后，工作表標(biāo)簽消失。將該屬性設(shè)置為True，重新顯示工作表標(biāo)簽。例如02-06：命名活動(dòng)窗口(Caption屬性)SubtestCaption()

MsgBo*"當(dāng)前活開工作簿窗口的名字是:"&ActiveWindow.Caption

ActiveWorkbook.Windows(1).Caption="我的工作簿"

MsgBo*"當(dāng)前活開工作簿窗口的名字是:"&ActiveWindow.Caption

EndSub例如說明：本程序運(yùn)行后，顯示當(dāng)前活開工作簿窗口原先的名稱(即工作簿窗口未處于最大化狀態(tài)時(shí)，出現(xiàn)在窗口頂部標(biāo)題欄中的文字)，然后設(shè)置當(dāng)前活開工作簿窗口名稱，即使用語句ActiveWorkbook.Windows(1).Caption="我的工作簿"，最后顯示當(dāng)前活開工作簿窗口的新名稱。改變窗口的標(biāo)題并不會(huì)改變工作簿的名稱。例如02-07：移動(dòng)窗口到指定位置(ScrollRow屬性和ScrollColumn屬性)SubtestScroll()

MsgBo*“將當(dāng)前窗口工作表左上角單元格移至第10行第3列〞

ActiveWindow.ScrollRow=10

ActiveWindow.ScrollColumn=3

EndSub例如說明：本程序運(yùn)行后，當(dāng)前活動(dòng)窗口左上角單元格為第10行第3列?？梢酝ㄟ^設(shè)置這兩個(gè)屬性來移動(dòng)窗口到指定的位置，也可以返回指定窗格或窗口最左上面的行號(hào)或列號(hào)。[Ne*tPage]

例如02-08：調(diào)整窗口(EnableResize屬性)SubtestResize()

MsgBo*“設(shè)置窗口大小不可調(diào)整〞

ActiveWindow.EnableResize=False

EndSub例如說明：測試本程序前，將當(dāng)前工作簿窗口恢復(fù)為正常狀態(tài)(即讓工作簿標(biāo)題可見)，運(yùn)行程序后，當(dāng)前工作簿窗口將不能調(diào)整其大小，右上角的最小化最大化按鈕將消失(即隱藏最大化和最小化按鈕)。該屬性設(shè)置為True，則能調(diào)整窗口大小。例如02-09：拆分窗格[例如02-09-01]

SubSplitWindow1()

DimiRowAsLong,iColumnAsLong

MsgBo*"以活動(dòng)單元格為基準(zhǔn)拆分窗格"

iRow=ActiveCell.Row

iColumn=ActiveCell.Column

WithActiveWindow

.SplitColumn=iColumn

.SplitRow=iRow

EndWith

MsgBo*"恢復(fù)原來的窗口狀態(tài)"

ActiveWindow.Split=False

EndSub

[例如02-09-02]

SubSplitWindow()

DimiRowAsLong,iColumnAsLong

MsgBo*"以活動(dòng)單元格為基準(zhǔn)拆分窗格"

iRow=ActiveCell.Row

iColumn=ActiveCell.Column

WithActiveWindow

.SplitColumn=iColumn

.SplitRow=iRow

EndWith

MsgBo*"恢復(fù)原來的窗口狀態(tài)"

ActiveWindow.SplitColumn=0

ActiveWindow.SplitRow=0

EndSub例如說明：本例如演示了以活動(dòng)單元格為基準(zhǔn)拆分窗格。如果指定窗口被拆分，則Split屬性的值為True；設(shè)置該屬性的值為False則取消窗格拆分。也可以設(shè)置SplitColumn屬性和SplitRow屬性的值來取消窗格拆分。例如02-10：凍結(jié)窗格(FreezePanes屬性)SubtestFreezePane()

MsgBo*“凍結(jié)窗格〞

ActiveWindow.FreezePanes=True

EndSub例如說明：運(yùn)行本程序后，將會(huì)凍結(jié)活動(dòng)單元格所在位置上方和左側(cè)的單元格區(qū)域。將該屬性的值設(shè)置為False，將取消凍結(jié)窗格。例如02-11：設(shè)置網(wǎng)格線顏色(GridlineColor屬性和GridlineColorInde*屬性)SubsetGridlineColor()

DimiColorAsLong

iColor=ActiveWindow.GridlineColor

MsgBo*"將活動(dòng)窗口的網(wǎng)格線顏色設(shè)為紅色"

ActiveWindow.GridlineColor=RGB(255,0,0)

MsgBo*"將活動(dòng)窗口的網(wǎng)格線顏色設(shè)為藍(lán)色"

ActiveWindow.GridlineColorInde*=5

MsgBo*“恢復(fù)為原來的網(wǎng)格線顏色〞

ActiveWindow.GridlineColorInde*=iColor

EndSub例如說明：運(yùn)行程序后，當(dāng)前工作表窗口網(wǎng)格線將被設(shè)置為紅色。其中，GridlineColorInde*屬性可以用于返回或設(shè)置網(wǎng)格線的顏色，下面給出了默認(rèn)調(diào)色板中顏色的編號(hào)值：

[小結(jié)]ActiveWindow屬性返回當(dāng)前激活的工作簿窗口，可以用來設(shè)置工作表中的元素，也可以顯示特定的單元格，或者用來調(diào)整窗口的顯示比例，以及設(shè)置窗口。例如02-12：設(shè)置工作表標(biāo)簽區(qū)域?qū)挾群退綕L動(dòng)條寬度比例(TabRatio屬性)Subtest()

MsgBo*"設(shè)置工作表標(biāo)簽區(qū)域?qū)挾葹樗綕L動(dòng)條寬度的一半"

ActiveWindow.TabRatio=0.5

EndSub例如說明：TabRatio屬性返回或設(shè)置工作簿中工作表標(biāo)簽區(qū)域的寬度與窗口水平滾動(dòng)條的寬度比例(可為0到1之間的數(shù)字；默認(rèn)值為0.6〕。您可以改變上面程序中的數(shù)值進(jìn)展測試。例如02-13：設(shè)置激活窗口時(shí)運(yùn)行的程序(OnWindow屬性)SubtestRunProcedure()

ThisWorkbook.Windows(1).OnWindow="test"

EndSub‘*********************************************************

Subtest()

MsgBo*"您可以使用本窗口了!"

EndSub例如說明：本例如包括兩個(gè)程序，主程序?yàn)閠estRunProcedure()，運(yùn)行后，每當(dāng)激活該窗口時(shí)，將會(huì)運(yùn)行test()程序。其中，OnWindow屬性返回或設(shè)置每當(dāng)激活一個(gè)窗口時(shí)要運(yùn)行的過程的名稱，如本例中的test()程序。例如02-14：獲取指定窗口單元格區(qū)域地址(RangeSelection屬性)SubtestRangeSelection()

MsgBo*"顯示所選單元格地址

EndSub例如說明：本例如返回當(dāng)前窗口中所選單元格區(qū)域的地址。RangeSelection屬性返回指定窗口的工作表中的選定單元格(即使指定工作表中有圖形對(duì)象處于活動(dòng)狀態(tài)，或者已選定圖形對(duì)象，仍返回在圖形對(duì)象被選定之前選定的單元格區(qū)域，這是該屬性與Selection屬性的區(qū)別)。[Ne*tPage]

例如02-15：返回指定窗口中所選擇的工作表(SelectedSheets屬性)SubtestSelectedSheet()

DimshAsWorksheet

ForEachshInActiveWorkbook.Windows(1).SelectedSheets

MsgBo*"工作表"&sh.Name&"被選擇"

Ne*t

EndSub例如說明：SelectedSheets屬性返回代表指定窗口中的所有選定工作表的集合。本例如中，如果您同時(shí)選擇了活開工作簿中的工作表Sheet1和Sheet2，則運(yùn)行程序后，將會(huì)顯示相應(yīng)工作表被選擇的信息。例如02-16：排列窗口(Arrange方法)SubtestArrangeWindows()

MsgBo*"請(qǐng)確保應(yīng)用程序至少含有兩個(gè)工作簿,這樣才能看出效果"

MsgBo*“窗口將平鋪顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleTiled

MsgBo*“窗口將層疊顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleCascade

MsgBo*“窗口將水平排列顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleHorizontal

MsgBo*“窗口將垂直并排排列顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleVertical

EndSub例如說明：運(yùn)行本程序后，將平鋪應(yīng)用程序中的所有窗口。Arrange方法用于對(duì)屏幕上的窗口進(jìn)展排列，其語法為e*pression.Arrange(ArrangeStyle,ActiveWorkbook,SyncHorizontal,SyncVertical)，所有的參數(shù)均為可選參數(shù)。其中，參數(shù)ArrangeStyle代表排列樣式，可為以下常量：常量*lArrangeStyleTiled為缺省值，表示將平鋪窗口；常量*lArrangeStyleCascade表示將窗口進(jìn)展層疊；常量*lArrangeStyleHorizontal表示將水平排列所有窗口；常量*lArrangeStyleVertical表示將垂直并排排列所有窗口。您可以在上面的程序中測試這些常量，以體驗(yàn)效果。將參數(shù)ActiveWorkbook設(shè)置為True，則只對(duì)當(dāng)前工作簿的可見窗口進(jìn)展排列。如果為False，則對(duì)所有窗口進(jìn)展排列。默認(rèn)值為False。設(shè)置參數(shù)SyncHorizontal為True，在水平滾動(dòng)時(shí)同步滾動(dòng)當(dāng)前工作簿的所有窗口；如果為False，則不同步滾動(dòng)。設(shè)置參數(shù)SyncVertical為True，則在垂直滾動(dòng)時(shí)同步滾動(dòng)當(dāng)前工作簿的所有窗口；如果為False，則不同步滾動(dòng)，默認(rèn)值為False。如果參數(shù)ActiveWorkbook為False或者省略，則參數(shù)SyncHorizontal和SyncVertical被忽略。例如02-17：窗口尺寸(UsableHeight、UsableWidth、Height、Width屬性)SubtestActiveWindowSize()

MsgBo*"當(dāng)前窗口可用區(qū)域的高度為:"&ActiveWindow.UsableHeight

MsgBo*"當(dāng)前窗口的高度為:"&ActiveWindow.Height

MsgBo*"當(dāng)前窗口可用區(qū)域的寬度為:"&ActiveWindow.UsableWidth

MsgBo*"當(dāng)前窗口的寬度為:"&ActiveWindow.Width

EndSub例如02-18：水平排列兩個(gè)窗口SubtestWindowArrange()

DimahAsLong,awAsLong

Windows.Arrange*lArrangeStyleTiled

ah=Windows(1).Height

aw=Windows(1).Width+Windows(2).Width

WithWindows(1)

.Width=aw

.Height=ah/2

.Left=0

EndWith

WithWindows(2)

.Width=aw

.Height=ah/2

.Top=ah/2

.Left=0

EndWith

EndSub例如說明：在運(yùn)行本例如前，保證只翻開了兩個(gè)工作簿窗口。運(yùn)行本例如后，將水平排列第一個(gè)窗口和第二個(gè)窗口，即每個(gè)窗口占用可使用的垂直空間的一半，占用所有水平空間。其中，Top屬性表示從窗口頂端到可用區(qū)域頂端的距離，無法對(duì)最大化的窗口設(shè)置本屬性；Left屬性表示使用區(qū)域的左邊界至窗口左邊界的距離，如果窗口已最大化，則會(huì)返回一個(gè)負(fù)數(shù)；如果該屬性被設(shè)置為0，則窗口的主邊框剛好在屏幕上可見。例如02-19：改變窗口的高度和寬度SubChangeHeightAndWidth()

DimiWinHeightAsLong,iWinWidthAsLong

ActiveWindow.WindowState=*lNormal

MsgBo*"將當(dāng)前窗口的高度和寬度各減一半"

iWinHeight=ActiveWindow.Height

iWinWidth=ActiveWindow.Width

ActiveWindow.Height=iWinHeight/2

ActiveWindow.Width=iWinWidth/2

MsgBo*"恢復(fù)原窗口大小"

ActiveWindow.Height=iWinHeight

ActiveWindow.Width=iWinWidth

EndSub例如說明：Height屬性和Width屬性必須在窗口處于正常顯示狀態(tài)(即不是最大化或最小化狀態(tài))時(shí)使用，否則會(huì)出錯(cuò)。例如02-20：移動(dòng)窗口SubSetWindowPosition()

DimiTopAsLong,iLeftAsLong

MsgBo*"將當(dāng)前窗口向下移60,向右移90"

ActiveWindow.WindowState=*lNormal

iTop=ActiveWindow.Top

iLeft=ActiveWindow.Left

ActiveWindow.Top=iTop+60

ActiveWindow.Left=iLeft+90

MsgBo*"恢復(fù)原來窗口的位置"

ActiveWindow.Top=iTop

ActiveWindow.Left=iLeft

EndSub例如說明：Top屬性和Left屬性必須在窗口處于正常顯示狀態(tài)(即不是最大化或最小化狀態(tài))時(shí)使用，否則會(huì)出錯(cuò)。例如02-21：并排比較窗口Subtestpare()

MsgBo*"與工作簿Book2進(jìn)展并排比較"

Windows.pareSideBySideWith"Book2"

MsgBo*"啟動(dòng)窗口滾動(dòng)功能,使兩個(gè)窗口同時(shí)滾動(dòng)"

Windows.SyncScrollingSideBySide=True

MsgBo*"將工作簿Book2最小化"

Windows("Book2").WindowState=*lMinimized

MsgBo*"重置并排比較顯示,恢復(fù)并排比較"

Windows.ResetPositionsSideBySide

MsgBo*"關(guān)閉并排比較

EndSub例如說明：在運(yùn)行本例如前，確保在本窗口外還翻開了一個(gè)名為Book2的窗口，或者您翻開了一個(gè)其它命名的窗口，相應(yīng)將上面程序中的Book2更換為您的窗口名。pareSideBySideWith方法將以并排模式翻開兩個(gè)窗口，其中一個(gè)是當(dāng)前活動(dòng)窗口，另一個(gè)就是該方法所指定的窗口，如本例中的Book2。SyncScrollingSideBySide屬性設(shè)置是否將兩個(gè)窗口的滾動(dòng)保持同步，如果為True，在對(duì)文檔進(jìn)展并排比較的同時(shí)啟用窗口內(nèi)容的滾動(dòng)功能。假設(shè)為False，則在對(duì)文檔進(jìn)展并排比較的同時(shí)禁用窗口內(nèi)容的滾動(dòng)功能。ResetPositionsSideBySide方法重置正在進(jìn)展并排比較的兩個(gè)工作表窗口的位置，例如，如果用戶將正在進(jìn)展比較的兩個(gè)工作表窗口中的其中一個(gè)窗框最小化或最大化，就可以使用ResetPositionsSideBySide方法重置顯示，以便這兩個(gè)窗口再次并排顯示。BreakSideBySide方法用來關(guān)閉并排比較。[Ne*tPage]

例如02-22：返回或設(shè)置窗口中顯示的視圖(View屬性)

SubtestView()

MsgBo*"將視圖切換為分頁預(yù)覽"

ActiveWindow.View=*lPageBreakPreview

MsgBo*"窗口視圖為:"&ActiveWindow.View

MsgBo*"將視圖恢復(fù)正常"

ActiveWindow.View=*lNormalView

MsgBo*"窗口視圖為:"&ActiveWindow.View

EndSub例如02-23：返回窗口中可見單元格區(qū)域(VisibleRange屬性)

SubtestVisibleRange()

MsgBo*"當(dāng)前窗口中共有"&Windows(1).VisibleRange.Cells.Count&"個(gè)單元格可見"

EndSub例如說明：如果窗口中有局部行列的單元格可見，也包括在可見單元格區(qū)域中。例如02-24：創(chuàng)立窗口(NewWindow方法)SubtestNewWindow()

MsgBo*"為活動(dòng)窗口創(chuàng)立一個(gè)副本"

ActiveWindow.NewWindow

MsgBo*"所創(chuàng)立窗口的窗口號(hào)為"&ActiveWindow.WindowNumber

EndSub例如說明：本例如中，NewWindow方法為指定窗口(本例中為當(dāng)前活動(dòng)窗口)創(chuàng)立一個(gè)副本，然后顯示該副本窗口的窗口號(hào)。注意，窗口號(hào)與窗口索引(Inde*屬性)的不同，例如名稱為“Book1.*ls:2〞的窗口，其窗口號(hào)為２，而窗口索引為該窗口在Windows集合中的位置，可以為窗口名稱或編號(hào)。例如02-25：設(shè)置窗口大小(Zoom屬性)

SubtestWindowDisplaySize()

MsgBo*"將窗口大小設(shè)置為與選定區(qū)域相適應(yīng)的大小"

ActiveWindow.Zoom=True

MsgBo*"以雙倍大小顯示窗口"

ActiveWindow.Zoom=200

MsgBo*"以正常大小顯示窗口"

ActiveWindow.Zoom=100

EndSub例如說明：Zoom屬性將以百分?jǐn)?shù)的形式(100表示正常大小，200表示雙倍大小，以此類推)返回或設(shè)置窗口的顯示大小。如果本屬性為True，則可將窗口大小設(shè)置成與當(dāng)前選定區(qū)域相適應(yīng)的大小。本功能僅對(duì)窗口中當(dāng)前的活開工作表起作用，假設(shè)要對(duì)其他工作表使用本屬性，必須先激活該工作表。例如02-26：激活窗口(ActivateNe*t方法和ActivatePrevious方法)

[例如02-26-01]

SubtestActivateWindow1()

MsgBo*"假設(shè)已翻開Book1.*ls、Book2.*ls和Book3.*ls三個(gè)工作簿且Book1.*ls為當(dāng)前窗口"&Chr(10)&"則按依次激活窗口"

ActiveWindow.ActivateNe*t

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivateNe*t

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivateNe*t

MsgBo*"激活工作簿:"&Windows(1).Caption

EndSub

[例如02-26-02]

SubtestActivateWindow2()

MsgBo*"假設(shè)已翻開Book1.*ls、Book2.*ls和Book3.*ls三個(gè)工作簿且Book1.*ls為當(dāng)前窗口"&Chr(10)&"則按依次激活窗口"

ActiveWindow.ActivatePrevious

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivatePrevious

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivatePrevious

MsgBo*"激活工作簿:"&Window