如何在vba窗口添加自定义工具栏

首先需要打开VBA编辑器，有三指坦稿种方法：

第一种：快捷键，Alt+F11

第二种：右键工作簿标签，选择“查看代码”

第三种：点击菜单栏的开发工具唯孝，选择Visual Basic选项卡

请点击输入图片描述

请点击输入图片描述

编辑信握代码，我只写了一个简单的功能：d出“HelloWorld”对话框

请点击输入图片描述

将该Excel保存为加载宏xlam格式，千万不能选错了格式，否则无法加载excel中的宏代码

请点击输入图片描述

加载刚才保存的HelloWrold.xlam。点击文件-选项-加载项，然后点击转到。如图所示

请点击输入图片描述

请点击输入图片描述

把宏文件嵌入excel菜单。点击文件-选项-自定义功能区，在自定义功能区新建选项卡，再新建组，将左侧显示的宏命令添加至新建组内，新建的选项卡和组可以重命名，宏命令可以设置自己的图标

请点击输入图片描述

请点击输入图片描述

点击命令，如图所示

请点击输入图片描述

5.添加宏到工具条

CATIA工具条是具有一定功能的图标按钮组合，一般停靠在用户窗口周围或浮动在界面上。用户可以通过工具吵清如条快捷调用特定 *** 作，使用起来比较方便。

CATIA提供了自定义工具条机制，可以把CATIA宏或VBA项目添加到指定模块的工具条中，供用户随时的调用。假设需要将前面讲到的创建正弦曲线的宏文件在创成式曲面设计（GSD）模块下添加工具条，其 *** 作步骤如下：

（1）打开“定制…”菜单

先把当前CATIA环境切换到创成式曲面设计(创建完成后的工具条在当前模块中出现)，然后点击“工具->定制…”（或“工具->自定义…”，不同版本汉化时有差异），d出对话框如下图：

选择“命令”选项卡，在左侧列表“类别”中选择“宏”，此时右侧可见当前宏库中的宏文件。我们选择sincurve2.catvbs，在“显示属性…”中为此命令选择图标并设定快捷键。

选择“工具栏”选项卡，单击右侧“新建…”按钮，在d出的对话框中输入工具栏名称，如“正弦曲线”，正困则左侧列表中出现正弦曲线条目。

点击“添加命升启令…”按钮，在命令列表中选择sincurve2.catvbs， *** 作完成，在CATIA窗口中出现新工具条。点击此工具条，则系统开始执行sinecurve2.vbs，完成正弦曲线的创建。

---