咱们创企图表模板的教程曾经快凑近序幕了，因而威哥也要拿出点压箱底的东东了。

看看即日图表的动态演示，只需按一下按钮，就能够实行事实中仪容盘的动画功效，难么？

经历前方两个图表的VBA的动态操演，信任众人曾经对哄骗VBA遏制图表的思绪有了一点根本的领会。

咱们的图表因而数据为启动的，因而VBA来实行图表动画，原本便是遏制单位格内的数据的改变。

关于谙练哄骗VBA的巨匠来讲，要实行云云的功效，原本只需遏制“实行”的数据从1转动到78便可，不过关于诸君代码小白来讲，能用代码实行云云的功效，具体便是神正常的存在。

不过在此以前，咱们哄骗宏来实行数值改动都是片时改动，没有过渡功效。要想让EXCEL中的图表动画和PPT中相同呈现过渡的动画功效，就须要更进一步的VBA的学问了。

不过没关联，即日威哥就无偿送上这段代码，你不须要晓得何如写的，只需晓得你只需窜改三个参数，就能够套用到本人的图表中去，实行相同的功效！

先来看代码，待会威哥再给你一行一行的声明。

PrivateDeclarePtrSafeFunctionGetTickCountLibkernel32()AsLong

Sub动起来()

DimiAsInteger,tAsLong

Fori=1To78

i=i+1

Range(b2)=i%

t=GetTickCount

Do

IfGetTickCount-t5ThenExitDo

DoEvents

Loop

Next

EndSub

第一行

PrivateDeclarePtrSafeFunctionGetTickCountLibkernel32()AsLong：

阐明移用WindowsAPI供应的GetTickCount函数，GetTickCount纪录了职掌系统从启动到目下为止所经历的毫秒数。

第二行

Sub动起来()到结尾一行EndSub众人该当很熟练了，这是一个VBA历程。

第三行

DimiAsInteger,tAsLong：这一行界说了“i和t的变量性质

第四行

Fori=1To78

i=i+1

这是一个轮回函数，道理是让i从1开端屡屡加1，并实行上面的饬令到“next”再轮回反复，到i=78为止。

第六行

Range(b2)=i%

将i的数值背面加之百分号之后写入到“B2”单位格内，也便是图表中遏制实行数值的单位格。

第七行

t=GetTickCount

让变量“t即是目下系统的时钟值，以毫秒为单位。

第八行

DO...loop又是一个轮回函数，用这个函数实行推迟，这个推迟便是在5毫秒的功夫内，甚么也不做。

第九行

IfGetTickCount-t5ThenExitDo

功夫在流失，时钟数据在增进，时钟数据与t值出入为5便是经历了5毫秒,就跳出这个轮回，而后投入FOR....NEXT轮回。原本说白了，便是让B2单位格内的数值每5毫秒增进1.

第十行

DoEvents

关于经历DoEvents抛却遏制的事变历程，避让在DoEvents返回以前从头移用这一历程。不然将无量无量地移用该历程，直到系统资本损耗殆尽。

原本上头的声明你看不懂也没关联，你只需

转载请注明:http://www.aideyishus.com/lkyy/1189.html