索   引	Office 2007 筆記
主   題	圓戳章-增益集-版本更新適用2007、2010版
版   本	>= 12.0(Office 2007)
說   明	經過大約10天的摸索學習對於Ribbon(功能區 ) XML 檔語法也有一定的認識，接著就開始進入實戰訓練了(加油!)，這次目標是將 圓戳章-增益集 轉換為 2007版增益集，以下將轉換的過程記錄下來....
參   考

• 先來解說 XML 檔，以下為本範例的XML語法

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<!-- Add Custom group to the Home tab in the ribbon-->
<ribbon>
<tabs>
<tab idMso="TabInsert" >
<group id="sealGroup1" label="chijanzen Tools"
insertBeforeMso="GroupEditing" >
<button id="rxSealbtn1" label="圓戳章" image="seal"
size="large" onAction="Callseal" />
<button id="rxSealbtn2" label="選項" imageMso="ControlSetControlDefaults"
size="large" onAction="Callsealoption" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

• 從下圖就可以看出<ribbon>、<tabs>、<tab>、<group>、<button>的附屬關析

• 上次文章 Ribbon(功能區 ) 說明中我有整理 出 Ribbon 索引標籤與 XML 標籤名稱的對照表，

• 我要在 「插入」(TabInsert )索引標籤內新增2個按鈕，所以語法為 

      <tab idMso="TabInsert" >
<group id="sealGroup1" label="chijanzen Tools"
   insertBeforeMso="GroupEditing" >

Ribbon 索引標籤	XML 標籤名稱
常用	TabHome
插入	TabInsert
版面配置	TabPageLayoutExcel
公式	TabFormulas
資料	TabData
校閱	TabReview
檢視	TabView
開發	TabDeveloper
增益集	TabAddIns

• 建立好群組(group)後，我在群組(group)內新增2個按紐(button)，語法如下

          <button id="rxSealbtn1" label="圓戳章" image="seal"
                  size="large" onAction="Callseal" />
          <button id="rxSealbtn2" label="選項" imageMso="ControlSetControlDefaults"
                  size="large" onAction="Callsealoption" />
　

• 第一個按鈕 圓戳章 使用自訂的圖示 image="seal"  ，要如何插入自定圖示請參考 Custom UI Editor Tool

• 第二個按鈕 選項 使用Excel 自帶的圖示 imageMso="ControlSetControlDefaults" ， 要如何知道Excel 自帶圖示樣式及名稱，

請下載 http://www.rondebruin.nl/files/BtnImages.zip

• XML 檔語法寫好後，使用 Custom UI Editor Tool  將 XML 檔存入增益集中。
• 製作完 XML 檔，開始寫 Callback (回乎)程式，程式碼如下

'Callback for rxSealbtn1 onAction
Sub Callseal(control As IRibbonControl)
Dim seal_shp As Shape, actRng As Range
Dim Item As Object
    On Error Resume Next
    If ThisWorkbook.Sheets("IconSheet").Range("Z1") <> "chijanzen" Then
        MsgBox "歡迎使用圓形章程式,第一次使用本程式需作基本資料設定"
        sealForm.Show 0
        Exit Sub
    End If
    '插入圓戳章
    On Error Resume Next
    '刪除已存在的圓戳章
    Set seal_shp = ActiveSheet.Shapes("icon")
    If Not seal_shp Is Nothing Then seal_shp.Delete
    '插入圓戳章(日期為當日)
    Set actRng = ActiveCell
    With ThisWorkbook.Sheets("IconSheet").Shapes("icon")
        .GroupItems.Item(6).TextEffect.Text = Format(Date, "Yyyy/m/d")
        .Copy
        ActiveSheet.Paste
    End With
    actRng.Activate
End Sub
　

• VBA 程式碼也寫完存檔後，接這進行按鈕標題中文化的工作，請參考
  

  解決 Custom UI Editor Tool 不支援中文語系的問題

• 經過以上步驟的加工，圓戳章-增益集-Excel 2007版 就完成了

• 圓戳章-增益集-Excel 2007版 檔案下載

• 安裝說明:

Popularity: 34%