VBA很强大,在一些图形表现方面也是有独特的展现,本节介绍一个没有实际意义的编码,实现一个不断变幻的彩色背景。

VBA制作一个万花筒背景效果,精彩无处不在

下面为效果展示,运行之后,色块会自动变幻,颜色都是随机产生的,说不上好看,主要是表现形式的一种应用。

如果扩展到其它图形,那么有审美观的人,可以做出选择更好的东西来。

下图为展示界面,设置了两个按钮,一个开始,一个停止。

其代码应用了一个不断自我调用的语句,Application.Ontime()

VBA制作一个万花筒背景效果,精彩无处不在

下图为过程代码:

VBA制作一个万花筒背景效果,精彩无处不在

重点代码:

Application.OnTime Now TimeValue("00:00:01"), "ShowColor"

上面一行表示每间隔1秒钟进行调用"ShowColor"过程一次,一次过程实现单元格背景更换,不断循环此过程,直到一个判断变量为真停止,也就是停止按钮执行。