VBA-将宏添加到选项卡（简易版）

缘起

相信经常使用Office软件，尤其是Excel的朋友，很多人都听说过VBA，我周围也有些部门的同事会自主研发一些实用的宏工具。作为最贴近工作场景的脚本编写方式，学会使用VBA会给业务工作带来一定的便利。

方法

要用起来VBA，启动是必要的步骤。自用时，无论是在VBE里F5，还是Alt+F8启动都无所谓；但如果是制作规范化流程中使用的工具，除开代码的规范性，启动的便利性也是很重要的。比较便利的启动方法有快捷键、选项卡扩充等方法。今天这篇就是介绍一下界面操作和VBA代码两种将VBA功能放到选项卡的简易实现方式。

方法一：界面操作方法

以Word为例，其他Office软件同理

1. 点击“File”
   
2. 点击“Options”
   
3. 点击“Customize Ribbon”(标识1处)，选择“Macros” (标识2处)，此时所有的宏都会显示在标识2下方的列表中。
   
4. 在标识3、4、6的上方列表，是所有的选项卡（例如Home、Insert等等）的列表：
   • “New Tab”（标识3）用来添加像Home一样的选项卡
   • “New Group”（标识4）用来添加像Clipboard这样的选项卡中的小类别
   • 添加好Tab和Group后，可以在宏列表中选中要添加的宏然后点击“Add”（标识5）去把特定的宏加到自定义的选项卡中。
   • “Rename”（标识6）可以为所有的Tab、Group以及添加的宏功能更名及更改图标。
   这个页面还有其他好玩的按钮，都是微软开放给所有用户的功能，比如“Import/Export”（标识7），它的功能就是能把设计好的选项卡导出，然后在别的电脑上导入的功能，在团队内分享宏的UI设置时比较便利。
   *提醒一下，像“Rename”这种功能的确能打造符合不同用户审美的选项卡，然而除非你对所有功能了如指掌，不推荐在默认选项卡中使用，否则在你想使用某些功能的时候，只能对着指导教程或者重置功能哭泣了：）

方法二：VBA法

这个方法没有UI操作那么直观，但是胜在分享出去之后在别的电脑上可以便利的使用。下面简单的实现添加一个按钮的方法，主要利用的还是CommandBar对象。更多关于CommandBar的介绍，请走传送门。

Sub AddMacroButton()
Dim oBar As CommandBar
Dim oControl As CommandBarButton
Dim oButtonStyle(1 To 3) As Variant

'这里是按钮显示名
oButtonStyle(1) = "MacroFunc"
'这里是按钮链接宏名
oButtonStyle(2) = "TestFunc"
'这里是按钮图案ID
oButtonStyle(3) = 261

Set oBar = Application.CommandBars.Add("MacroBar", , , True)
oBar.Visible = True

Set oControl = oBar.Controls.Add(1)
oControl.Caption = oButtonStyle(1)
oControl.OnAction = oButtonStyle(2)
oControl.FaceId = oButtonStyle(3)
End Sub

'这里要添加的宏
Sub TestFunc()
MsgBox ("Macro worked.")
End Sub

最后特别的提一下FaceID这个属性。在这个看脸的社会里，颜值对人的主观印象影响很大，微软内置了几千种不同的图表可以通过FaceID调用，有大佬整理下来了，要看的朋友请走传送门