在制作自己的選項(xiàng)卡中,我們可以利用Office 2007 Custom UI Editor工具來(lái)幫助我們完成工作。但,如果您沒(méi)有此工具,別擔(dān)心,我們還可以利用WinRAR軟件來(lái)達(dá)到我們的目的。雖然,Excel2007自帶的Excel 2007 開(kāi)發(fā)人員參考幫助中也有介紹到此方法,卻不是在Excel里可以直接應(yīng)用的,且不夠詳盡,在此,我將制作過(guò)程拆解,一一為您奉上。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代碼執(zhí)行名InsertCompanyName,必須與將要建立的RibbonSample.xlsm中的回調(diào)過(guò)程名一致。)另存擴(kuò)展名為XML的customUI.xml文件(注意:必須是此文件名)。新建一customUI文件夾,將此文件放入customUI文件夾里(注意:必須是此文件夾名)。Step2:新建一xlsm(啟用宏)文件,命名為“RibbonSample.xlsm”插入一標(biāo)準(zhǔn)模塊,寫入下列代碼:(如圖1所示)Sub InsertCompanyName(ByVal control As IRibbonControl) Dim MyText As String If TypeName(Selection) <> "Range" Then Exit Sub MyText = "Microsoft Corporation" Selection.Value = MyTextEnd Sub

(圖1)關(guān)閉并保存此工作簿。Step3:將RibbonSample.xlsm 重命名為 RibbonSample.xlsm.zip 文件。雙擊此zip文件(無(wú)需關(guān)閉zip文件),我們會(huì)看到zip容器中包含一名為_(kāi)rels的文件夾(如圖2所示),將此文件夾解壓縮到桌面上。

(圖2)以記事本打開(kāi)方式,打開(kāi)桌面上_rels文件夾中的.rels XML文件。內(nèi)容如下:<?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文件建立聯(lián)系,將如下XML語(yǔ)句,<Relationship Id="someID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" /> (注意,ID可以是任意的,但不能重復(fù)。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:將前面已經(jīng)準(zhǔn)備好的customUI文件夾,放入此zip容器(如圖3所示)。

(圖3)關(guān)閉zip文件,將其改名為原來(lái)的RibbonSample.xlsm文件名。Step5:雙擊打開(kāi)RibbonSample.xlsm文件,啟用宏,我們將在功能區(qū)(RibbonX)用戶界面中看到一個(gè)My Tab的自定義選項(xiàng)卡(如圖4所示)。單擊該選項(xiàng)卡,我們會(huì)看到一個(gè)帶有按鈕控件的Company Name的組。單擊Inset Company Name按鈕,可在選定的單元格中插入Microsoft Corporation字樣。

(圖4)到此,我們的自定義選項(xiàng)卡就已經(jīng)大功告成。
新聞熱點(diǎn)
疑難解答
圖片精選