Excel 2010 VBA 入门 140 在功能区添加按钮并运行VBA程序

目录

题

码

回调（CallBack）

IRibbonControl对象

---

题

        如图所示，该表为员工档案。为了避免该表的数据被修改，该表已经被保护。如何在功能区添加一个按钮，当单击该按钮后可以将该表的数据导出为普通的工作簿。

码

        在工作簿中添加一个按钮的回调过程saveCopy，该过程用以将工作表中的数据导出另存为一个单独的工作簿。然后自定义功能区，在自定义选项卡中添加一个按钮，将其onAction属性设置为该回调过程saveCopy。

步骤1  自定义功能区，其customUI代码如下：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon startFromScratch="true">
    <tabs>
      <tab id="myTab" label="工具栏">
        <group id="myGroup" label="工作簿相关">
          <button id="btSaveCopy" label="导出工作簿" imageMso="FileSave" size="large" onAction="saveCopy"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

步骤2 打开工作簿，按组合键【Alt＋F11】打