Excel中ActiveX 控件的應用方法

時間：2016-03-12 10:11:16 思偉715由分享

　　Excel在工作表或圖表上可使用ActiveX控件，根據小編使用的體會，在工作上處理控件時，必須注意和了解如下事項：

　　Excel中ActiveX 控件的應用方法

　　(一)用Excel5.0/95工作簿文件格式保存Excel97工作簿時，將選擇ActiveX控件信息。

　　當用戶通過雙擊鼠標來編輯內嵌在其它應用程序文檔中的Excel97工作簿時，該工作簿上的控件將不會正常工作。如果用戶是通過用右鍵單擊工作簿，然后選中快捷菜單上的“打開”命令來編輯工作簿的話，工作簿上的控件就能正常工作了。

　　(二)當ActiveX控件處于激活狀態時，將禁用某些MicrosoftExcelVisualBasic方法和屬性。

　　例如，當某一控件激活時，就不能使用Sort方法，故下述按鈕單擊事件處理過程中的代碼將失敗(因為用戶單擊按鈕后，該按鈕就處于激活狀態)。

　　PRivateSubCommandButton1 Click

　　Range(″a1:a10″) SortKey1:=Range(″a1″)

　　EndSub

　　解決辦法是通過選激活工作表上其它元素的方法來繞過這種問題。例如，可用下列代碼對單元格區域排序：

　　PrivateSubCommandButton1 Click

　　Range(″a1″) Activate

　　Range(″a1:a10″) SortKey1:=Range(″a1″)

　　CommandButton1 Activate

　　End Sub

　　(三)在MicrosoftExcel中，用OLEObjects集合中的OLEObject對象代表ActiveX控件。

　　如果要用編程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。例如向第一張工作表添加命令按鈕。

　　Worksheets(1) OLEObjects Add″Forms CommandButton 1″，_

　　Left:=10,Top:=10,Height:=20,Width:=100

　　因為ActiveX控件也可用OLEObjects集合中的OLEObject對象代表，所以也可用該集合中的對象來設置控件的屬性。例如要設置控件“CommandBotton1”的“左邊位置”屬性。

　　Worksheets(1) OLEObjects(″CommandButton1″) Left=10

　　那些不屬于OLEObject對象屬性的控件屬性，可通過由Object屬性返回的實際控件對象來設置。例如要設置控件“CommandButton1”的標題。

　　Worksheets(1) OLEObjects(″CommandButton1″)

　　Object Caption=″runme″

　　因為所有的OLE對象也是Shapes集合的成員，所以也可用該集合設置若干控件的屬性。例如要對齊第一張工作表上所有控件的左邊框。

　　ForEachsInWorksheets(1) Shapes

　　Ifs Type=msoOLEControlObjectThens Left=10