excel vba 使用mschart_Excel实战技巧58： 使用VBA创建进度条

学习Excel技术，关注微信公众号：

excelperfect

当你的程序执行时间较长时，使用一个进度条来展示程序执行的状态是非常必要的。

进度条设计

打开VBE，插入一个用户窗体。

1.在属性窗口中，将该用户窗体命名为urfProgress。

2.设置其ShowModal属性为False，这样在该用户窗体处于打开状态时仍能继续运行程序。

3.调整该用户窗体为合适的大小(高110*宽240)。

进行适当设置后，目前表示进度条的用户窗体如下图1所示。

图1

在用户窗体中插入一个标签控件，用于显示指示程序状态的文本。在属性窗口将其命名为lblCaption，调整该标签的大小以便有足够的空间来容纳将要显示的文本，这里设置其Width属性为174，设置其Caption属性为空(即没有文本)。此时，表示进度条的用户窗体如下图2所示。

图2

接下来，在用户窗体中插入一个框架控件。使该框架在水平和垂直方向上大致居于用户窗体中心，并位于前面添加的标签下方，如下图3所示。

图3

设置框架的属性。将其命名为fraProgress，设置其Caption属性为空(即没有文本)，修改其SpecialEffect属性为“2-fmSpecialEffectSunken”。