VBA-将宏添加到选项卡(简易版)

VBA-将宏添加到选项卡(简易版)

  • 缘起
  • 方法
    • 方法一:界面操作方法
    • 方法二: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下方的列表中。
    VBA-将宏添加到选项卡(简易版)_第1张图片
  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调用,有大佬整理下来了,要看的朋友请走传送门

你可能感兴趣的:(VBA,VBA)