如何在EXCEL工具栏中制作自定义按钮

编写好需要使用的VBA代码：编写好需要使用的功能代码，此处以本人自行编写的GPS坐标转换功能为例，过程名为“amaptogo”，当然这个过程名可以自己随意定。

在“加载项”选项卡添加自定义工具栏及功能按钮：首先要先添加一个自定义工具栏才能添加功能按钮，代码如下。Sub CreateToolBar()On Error Resume NextCommandBars('custombar1').Delete '清除同名工具栏，避免冲突With Application.CommandBars.Add('custombar1', msoBarTop, , True)'定义工具栏         .Visible = True '设置工具栏可见         With .Controls.Add(Type:=msoControlButton) '开始添加自定义按钮                 .Caption = 'amaptogoName' '自定义按钮显示名称                 .Style = msoButtonIconAndCaption '显示风格                 .TooltipText = 'amaptogo' '这个属性是表示当鼠标移动到按钮上方时弹出的悬浮窗显示的提示内容                 .FaceId = 128 'FaceId代码，每一个代码对应一个图标，具体对应关系见下一步                 .OnAction = 'amaptogo' '该按钮关联的过程（就是之前编写好的代码过程名）         End WithEnd Withend sub编写完成后运行，“加载项”选项卡中就会显示对应图标，鼠标点击后就能运行指定代码了。

选择合适的图标（FaceId）:常用FaceID图标及代号对应表参考如下，EXCEL版本不同图标样式可能会有些许出入，以实际为准。此对应表为本人手工整理，如需转载请明确注明来源。