Excel 2007 RibbonX使用教程
在制作自己的選項(xiàng)卡中,我們可以利用Office2007CustomUIEditor工具來(lái)幫助我們完成工作。但,如果您沒(méi)有此工具,別擔(dān)心,我們還可以利用WinRAR軟件來(lái)達(dá)到我們的目的。雖然,Excel2007自帶的Excel2007開(kāi)發(fā)人員參考幫助中也...
在制作自己的選項(xiàng)卡中,我們可以利用Office2007Custom UI Editor工具來(lái)幫助我們完成工作。但,如果您沒(méi)有此工具,別擔(dān)心,我們還可以利用WinRAR軟件來(lái)達(dá)到我們的目的。
雖然,excel2007自帶的Excel 2007 開(kāi)發(fā)人員參考幫助中也有介紹到此方法,卻不是在Excel里可以直接應(yīng)用的,且不夠詳盡,在此,我將制作過(guò)程拆解,一一為您奉上。
Step1:
建立一文本文件,寫(xiě)入下列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)模塊,寫(xiě)入下列代碼:(如圖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)
關(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)大功告成。