在製作自己的選項卡中,我們可以利用Office2007Custom UI Editor工具來幫助我們完成工作。但,如果您沒有此工具,別擔心,我們還可以利用WinRAR軟體來達到我們的目的。
雖然,excel2007自帶的Excel 2007 開發人員參考幫助中也有介紹到此方法,卻不是在Excel裡可以直接應用的,且不夠詳盡,在此,我將製作過程拆解,一一為您奉上。
Step1:
建立一文字檔案,寫入下列XML程式碼:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<tabs>
<tab id="CustomTab" label="My Tab">
<group id="SampleGroup" label="Company Name">
<button id="Button" label="Insert Company Name" size="large"/>
</group >
</tab>
</tabs>
</ribbon>
</customUI>
(注意:Insert Company Name按鈕的OnAction程式碼執行名InsertCompanyName,必須與將要建立的RibbonSample.xlsm中的回撥過程名一致。)
另存副檔名為XML的customUI.xml檔案(注意:必須是此檔名)。
新建一customUI資料夾,將此檔案放入customUI資料夾裡(注意:必須是此資料夾名)。
Step2:
新建一xlsm(啟用宏)檔案,命名為“RibbonSample.xlsm”
插入一標準模組,寫入下列程式碼:(如圖1所示)
Sub InsertCompanyName(ByVal control As IRibbonControl)
Dim MyText As String
If TypeName(Selection) <> "Range" Then Exit Sub
MyText = "Microsoft Corporation"
Selection.Value = MyText
End Sub
(圖1)
關閉並儲存此工作簿。
Step3:
將RibbonSample.xlsm 重新命名為 RibbonSample.xlsm.zip 檔案。
雙擊此zip檔案(無需關閉zip檔案),我們會看到zip容器中包含一名為_rels的資料夾(如圖2所示),將此資料夾解壓縮到桌面上。
(圖2)
以記事本開啟方式,開啟桌面上_rels資料夾中的.rels XML檔案。
內容如下:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/><Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/></Relationships>
為了和此前建立的customUI.xml檔案建立聯絡,將如下XML語句,
<Relationship Id="someID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" />
(注意,ID可以是任意的,但不能重複。Target就是先前我們建立的customUI資料夾和檔案。)
插入到</Relationships>之前:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/><Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
<Relationship Id="someID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" />
</Relationships>
退出並儲存此XML檔案。
將此_rels資料夾(包含剛修改的.rels檔案)替換zip檔案容器中的_rels資料夾。
Step4:
將前面已經準備好的customUI資料夾,放入此zip容器(如圖3所示)。
(圖3)
關閉zip檔案,將其改名為原來的RibbonSample.xlsm檔名。
Step5:
雙擊開啟RibbonSample.xlsm檔案,啟用宏,我們將在功能區(RibbonX)使用者介面中看到一個My Tab的自定義選項卡(如圖4所示)。
單擊該選項卡,我們會看到一個帶有按鈕控制元件的Company Name的組。
單擊Inset Company Name按鈕,可在選定的單元格中插入Microsoft Corporation字樣。
(圖4)
到此,我們的自定義選項卡就已經大功告成。