交互式图表示例：让图表动起来

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： Excel 图表 引子：本文学习整理自 peltiertech.com ，将文章《 交互式图表示例：数数有多少个正方形 》中的正方形动起来。 如下图 1 所示，以散点图中的各点为端点组成的正方形会自动变化，直至遍历完所有点。 图 1 首先，选择一个单元格来设定动画的速度，示例中为单元格 L8 ，输入值 0.25 ，并将其命名为 Pause ，如下图 2 所示。 图 2 然后，打开 VBE ，插入一个标准模块，输入下面的代码： Sub LoopTheSquares() Dim iMin As Long Dim iMax As Long  iMin = Worksheets( "Sheet1" ).Range( "ScrollMin" ).Value2  iMax = Worksheets( "Sheet1" ).Range( "ScrollMax" ).Value2 Dim tPause As Double  tPause = Worksheets( "Sheet1" ).Range( "Pause" ).Value2 Dim rNow As Range  Set rNow = Worksheets( "Sheet1" ).Range( "ScrollNow" ) Dim iNow As Long For iNow = iMin To iMax rNow.Value2 = iNow ………………………………