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

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

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

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

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

　　8.定義ActiveX控件按鈕

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

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

　　雙擊該按鈕，在彈出窗口的代碼中加入驅(qū)動SolidWorks尺寸參數(shù)的內(nèi)容。需要說明的是，該代碼形式固定，需要更改的只是箭頭所指的變量傳遞部分語句，其中，前面括號中是在SolidWorks中的模型尺寸名，后面括號中是Excel表格中相應(yīng)的單元格名稱。注意，代碼中數(shù)值單位是m，而本例模型中單位是mm，因此在代碼中數(shù)值要除以1000。另外，按鈕名稱不要弄錯，一定要與控件名稱一致(注意不是顯示名稱)。需要指出的是，長方體需要長、寬和高三個參數(shù)，而我們只定義了2個參數(shù)“長、高”，這是因?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(“長@Sketch1”).SystemValue=Range(“A4”).Value/1000

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

　　End Sub