用VBA模拟7段数码管显示数字

上次在PPT中用VBA编制了一个计时器，实现了倒计时功能，但是我觉得这个计时器不够酷炫，如果采用7段数码管显示数字，那就够COOL了。为了实现这个功能，我把任务进行了分解，今天先完成第一步，如何用VBA实现7段数码管的数字显示。

最开始，我想采用画线的方法，但是VBA不支持Picture控件，所以得另外想招。我想到一个办法，添加7个小长条的Image控件，通过控制背景颜色的方式来实现数码管的功能。

下面是源代码，加入了Timer用以控制循环，实现了从0-9的数字显示。

程序资源我已经上传到我的博客中，欢迎下载。