在工作表上使用ActiveX控件

1、在工作表上使用ActiveX控件本主題包括了在工作表或圖表工作表上使用 ActiveX控件的特定信息。有關(guān)添 加和處理控件的一般信息，請參閱 在文檔中使用 ActiveX 控件和創(chuàng)建自定義對 話框。在工作表上處理控件時，必須記住以下幾點。 除ActiveX 控件可用的標準屬性之外，在Microsoft Excel中還可使用ActiveX 控件的下列屬性：BottomRightCell、LinkedCell、 ListFillRange 、Placement、PrintObject 、TopLeftCell 和 ZOrder。這些屬性可用ActiveX 控件的名稱來設(shè)置和返回。下例滾動工作簿窗口

2、， 使CommandButton1位于窗口的左上角。Set t = Sheet1.CommandButton1.TopLeftCellWith ActiveWindow.ScrollRow = t.Row.ScrollColumn = t.ColumnEnd With 當ActiveX 控件處于激活狀態(tài)時，將禁用某些Microsoft Excel VisualBasic方法和屬性。例如，當某一控件處于激活狀態(tài)時，就不能使用Sort 方法，故下述按鈕單擊事件過程中的代碼將無效(因為用戶單擊按鈕后， 該按鈕將處于激活狀態(tài))。 Private Sub CommandButton1.Click Ran

3、ge("a1:a10").Sort Key1:=Range("a1") End Sub在使用無效的屬性或方法之前，可通過激活工作表上的其他一些元素來避免該問 題。例如，下列代碼可對單元格區(qū)域排序：Private Sub CommandButton1.ClickRange("a1").ActivateRange("a1:a10").Sort Key1:=Range("a1")CommandButton1.ActivateEnd Sub 當用戶通過雙擊嵌入在其他應(yīng)用程序的文檔中的Microsoft

4、Excel 工作簿來對其進行編輯時，該工作簿上的控件無法正常工作。如果用戶用鼠標右鍵單擊工作簿，然后選中快捷菜單上的“打開”命令， 工作簿上的控件 將正常工作。 用 Microsoft Excel 5.0/95工作簿文件格式保存 Microsoft Excel 口作簿時，將丟失ActiveX控件信息。 工作表上ActiveX 控件的事件過程中的 Me關(guān)鍵字引用的是工作表，而 非控件。用Visual Basic添加控件在 Microsoft Excel 中，用 OLEObjects 集合中的 OLEObject 對象代表 ActiveX 控件(所有的OLEObject對象也包含在Shapes集合

5、中)。若要用編程的方式向 工作表添加ActiveX 控件，請用OLEObjects集合的Add方法。下例向第一張 工作表添加命令按鈕。Worksheets(1).OLEObjects.Add "Forms.CommandButton.1", _Left:=10, Top:=10, Height:=20, Width:=100通過Visual Basic使用控件屬性絕大多數(shù)情況下，Visual Basic代碼可用名稱引用ActiveX控件。下例更改了控件 “ CommandButton1 的標題。Sheet1.CommandButton1.Caption = "Ru

6、n"請注意，當在控件所在的工作表的類模塊之外使用控件的名稱時，必須用工作表的名稱限定該控件的名稱。若要更改在Visual Basic代碼中所用的控件的名稱，請先選定該控件，然后在 “屬性”窗口中設(shè)置控件的“(名稱)”屬性。因為ActiveX 控件也可用OLEObjects集合中的OLEObject對象代表，所以也 可用該集合中的對象來設(shè)置控件的屬性。 下例設(shè)置了控件“ CommandButton1的 左邊位置。Worksheets(1).OLEObjects("CommandButton1").Left = 10沒有顯示為OLEObject對象屬性的控件屬性可通過

7、由 Object屬性返回的實際控件對象來設(shè)置。下例設(shè)置了控件“ CommandButton1的標題。Worksheets(1).OLEObjects("CommandButton1"). _ Object.Caption = "run me"因為所有的OLE對象也是Shapes集合的成員，所以也可用該集合設(shè)置若干控件 的屬性。下例對齊第一張工作表上的所有控件的左邊緣。For Each s In Worksheets（1）.ShapesIf s.Type = msoOLEControlObject Then s.Left = 10 Next使用Shapes

8、和OLEObjects集合的控件名稱工作表上的ActiveX 控件具有兩個名稱：包含控件的圖形的名稱（當查看工作 表時，可在“名稱”框中看到此名稱）；控件的代碼名稱（在“屬性”窗口的“（名 稱）”右邊的單元格中可看到此名稱）。第一次向工作表中添加控件時，圖形名 稱和代碼名稱是匹配的。但是，如果更改其中之一（圖形名稱或代碼名稱），另 一個名稱不會自動隨之更改。在控件的事件過程名稱中使用的是控件代碼名稱，但是，當您從工作表的Shapes或OLEObjects集合中返回控件時，必須使用圖形名稱而不是代碼名稱來通過名 稱引用控件。例如，假定要向工作表中添加一個復(fù)選框，其默認的圖形名稱和代碼名稱都是Ch

9、eckBox1。如果通過在“屬性”窗口的“（名稱）”旁邊鍵入“chkFinished ”而更改了控件代碼名稱，則在事件過程名稱中必須使用“chkFinished "，但是您仍然需要使用 CheckBox1 來從 Shapes 或 OLEObject 集合中返回控件，如下例所示。Private Sub chkFinished_Click()ActiveSheet.OLEObjects("CheckBox1").Object.Value = 1End Sub上頁： Excel VBA 教程： 設(shè)置控件屬性 下頁： Excel VBA 教程： Application 對

10、 象事件的用法Excel VBA教程：在工作表上使用 ActiveX 控件Excel VBA教程：嵌入圖表事件的用法Excel VBA教程：Application對象事件的用法Excel VBA 教程：在文檔中使用 ActiveX 控 Excel VBA教程：使用 Microsoft Excel 對象事件的方法Excel VBA 教程：在窗體上使用 Microsoft Excel VBA 教程：QueryTable對象事件的用Office Web 組件Excel VBA教程：工作簿對象事件Excel VBA 教程：在 Visual Basic 中使用Microsoft Excel 工作表函數(shù)Excel VBA教程：處理三維區(qū)域Excel VBA 教程：處理圖形（繪圖對象）Excel VBA 教程：處理活動單元格Excel VBA 教程： Worksheet對象事件Excel VBA 教程：頁眉和頁腳的格式代碼Excel VBA 教程：ActiveX 控件Ex