X，Y散点图与animation

我正在寻找一种在（X，Y）平面内绘制多个点的方法，并使它们每次出现（然后消失）。 我总共有大约400（x，y）个点，这是从惯性测量单元收集的位置跟踪信息。

每个数据点间隔约4毫秒（我可以改变这个间隔时间，使其更长），所以如果可能的话，我想一次显示一个点，每个点为4ms，直到出现下一个点。 最终产品应在5-6秒采样时间内显示对象的移动path。 从我的excel文件中，我有两列（一个用于X，一个用于Y），它们是400个元素（400行）。

我希望能够一次绘制一行X，Y分散信息的方法，并寻找一些代码，这些代码将逐行递增并绘制相应的散点图。 我是一个半stream利的程序员，但从未使用过MS Visual Basic。 迄今为止我发现的所有Excel解决scheme（与我的问题类似）涉及在Visual Basic中编写graphics的代码。 我认为如果有人能够帮助我解决代码问题，我可能可以做到这一点…但是如果有另一个软件可以做到这一点（免费！我在学生预算！），那么我愿意尝试多种解决scheme。

我发现这个代码已经：

Sub Macro1() Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:B3"), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart.Axes(xlCategory) .MinimumScale = -30 .MaximumScale = 30 .MinorUnit = 1 .MajorUnit = 5 .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With With ActiveChart.Axes(xlValue) .MinimumScale = 0 .MaximumScale = 2800 .MinorUnit = 50 .MajorUnit = 100 .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With For I = 3 To Worksheets(1).Range("A65536").End(xlUp).Row ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:B" & I), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" ST = Timer While Timer < ST + 1 Wend Next I End Sub 

然而，由于没有任何评论或文件，我很难通过阅读和分开阅读。 我觉得有一次，我可以真正理解Visual Basic的格式，我可以修改程序以适应我的具体需求…但理解它是第一步。

所以我的信息再次是3列的格式：X位移 – Y位移 – 时间戳（以毫米为单位的位置）（以毫米为单位的位置）（秒或迭代＃，取其中较容易的一方）