選中“參數(shù)”工作表中的“長(zhǎng)”下面的所有數(shù)值表格，然后點(diǎn)擊公式欄中的“名稱(chēng)管理器”，新建一個(gè)名稱(chēng)為“長(zhǎng)”， 引用位置為剛才選中表格范圍的名稱(chēng)內(nèi)容，如圖8。

　　6.引用參數(shù)區(qū)域

　　這是為了將驅(qū)動(dòng)尺寸與設(shè)定好的參數(shù)進(jìn)行關(guān)聯(lián)調(diào)用，采用下拉框來(lái)實(shí)現(xiàn)，如圖9。

　　7.設(shè)置尺寸參數(shù)之間的關(guān)系

　　這一步可以充分利用Excel表格方便的公式計(jì)算功能，如圖10。

　　8.定義ActiveX控件按鈕

　　切換到“開(kāi)發(fā)工具”選項(xiàng)卡(此前要確保在“Excel選項(xiàng)→常用”中將開(kāi)發(fā)工具選項(xiàng)卡激活)，激活“設(shè)計(jì)模式”，在該選項(xiàng)卡中，點(diǎn)擊“插入→ActiveX控件→命令按鈕”，繪制一個(gè)按鈕，并修改該按鈕的顯示名稱(chēng)為“更新尺寸”。如果你喜歡，也可以將該按鈕的樣式顏色修改一下，效果如圖11。

　　9.修改按鈕的代碼內(nèi)容

　　雙擊該按鈕，在彈出窗口的代碼中加入驅(qū)動(dòng)SolidWorks尺寸參數(shù)的內(nèi)容。需要說(shuō)明的是，該代碼形式固定，需要更改的只是箭頭所指的變量傳遞部分語(yǔ)句，其中，前面括號(hào)中是在SolidWorks中的模型尺寸名，后面括號(hào)中是Excel表格中相應(yīng)的單元格名稱(chēng)。注意，代碼中數(shù)值單位是m，而本例模型中單位是mm，因此在代碼中數(shù)值要除以1000。另外，按鈕名稱(chēng)不要弄錯(cuò)，一定要與控件名稱(chēng)一致(注意不是顯示名稱(chēng))。需要指出的是，長(zhǎng)方體需要長(zhǎng)、寬和高三個(gè)參數(shù)，而我們只定義了2個(gè)參數(shù)“長(zhǎng)、高”，這是因?yàn)椋?ldquo;寬”的參數(shù)SolidWorks的方程式中定義了。如圖12。

　　通用代碼內(nèi)容如下，其中，紅色部分可直接復(fù)制重用到其他例子中。

　　Private Sub CommandButton1_Click()

　　Dim swApp As Object

　　Dim Part As Object

　　Dim Gtol As Object

　　Dim longstatus As Long

　　Dim boolstatus As Boolean

　　Set swApp = CreateObject(“SldWorks.Application”)

　　Set Part = swApp.ActiveDoc

　　‘Values for calcualtions are in meters

　　Part.Parameter(“長(zhǎng)@Sketch1”).SystemValue=Range(“A4”).Value/1000

　　Part.Parameter(“寬@Extrude1”).SystemValue=Range(“B4”).Value/1000Part.EditRebuild

　　End Sub