Excel 2007 RibbonX使用教程

2016-06-18 08:51:50 來(lái)源:互聯(lián)網(wǎng)作者:mhfree 人氣: 次閱讀 356 條評(píng)論

在制作自己的選項(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

Excel2007 RibbonX使用教程 三聯(lián)教程

(圖1)

關(guān)閉并保存此工作簿。


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

圖2.JPG

(圖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.JPG

(圖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.JPG

(圖4)

到此,我們的自定義選項(xiàng)卡就已經(jīng)大功告成。