Tag: animation

什么是从excel导出animationgraphics的最佳途径

我用excel创build了一系列图表，所有图表都展示了一些数量的时间演变。因此，在这个背后，我添加了定义这些数字在每个特定时间的演变的macros。 现在，我想提出这些关于力量的图表。 什么是最好的方式去呢？ 将所有这些图表保存为图像，然后创build一个gif？ 我想知道的select，所以我不会花太多的时间在一个可能不是最简单的方法。

如何显示加载屏幕，直到我的function完成

我有一个名为Export Excel的函数，它基本上将数据导出到excel并保存。 所以我需要显示一个启animation面，直到我的function完成工作。 我怎样才能做到这一点。 编辑： 如何在显示下面的对话框之前closures我的Please wait屏幕 我的代码片段： //对于后勤人员： public Form1() { InitializeComponent(); backgroundWorker1.WorkerReportsProgress = true; backgroundWorker1.WorkerSupportsCancellation = true; _f2 = new Form2(); } private void backgroundWorker1_DoWork(object sender, DoWorkEventArgs e) { BackgroundWorker worker = sender as BackgroundWorker; //backgroundWorker1.DoWork += new DoWorkEventHandler(this.ExportInExcel); } private void backgroundWorker1_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e) { _f2.Hide(); } private void button1_Click(object sender, […]

在VSTO中显示/隐藏CustomTaskPane时滑动animation

我有一个CustomTaskPane在我的VSTO项目，我可以显示/隐藏使用.Visible = true/false属性。 然而，这是一个普通的显示/隐藏元素，没有任何animation。 但是，Excel 2016附带的“智能查找”button也会通过向左/向右滑动来打开Excel窗格。 我猜测智能查找插件是使用JavaScript代替过时的VSTO COM插件的新技术，因此可能具有这样的function。 我能在VSTO插件中使用吗？

运行macros时更新dynamic图表 – Excel中的animationgraphics

我有一个dynamic图表根据单元格值更新每小时数据。 该单元格由滚动button控制或在另一个单元格中手动inputdate。 看看下面的gif的洞察力; 我想要做的就是使用VBA更新图表，使其像animation一样。 下面有这个（伪）代码; Option Explicit #If VBA7 And Win64 Then '64 bit Excel Public Declare PtrSafe Sub Sleep Lib "kernel32" ( _ ByVal dwMilliseconds As Long) #Else '32 bit Excel Public Declare Sub Sleep Lib "kernel32" ( _ ByVal dwMilliseconds As Long) #End If Sub Animate() On Error GoTo Error ErrorHandler Dim wsh […]

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 […]