我的问题需要一些提示或建议。
我希望基本上提供一个动画,并导入更多数据以保存正在运行的图形。
以下是正在运行的ppt代码:
Sub startButton()
Dim xcel As Object
Dim xcelBook As Object
Set xcel = CreateObject("Excel.Application")
xcel.Visible = True
Set xcelBook = xcel.Workbooks.Open("C:\Users\lupetei\Desktop\Yield Curve\Yield Curve.xlsm", True, False)
xcel.Run "'Yield Curve.xlsm'!Module1.animateGraph"
Set xcel = Nothing
Set xlBook = Nothing
End Sub
以下是正在运行的excel代码:
Public Sub animateGraph()
Dim i As Integer
Dim last As Integer
last = Range("O2").Value
i = 2
For i = 2 To last
Range(Cells(i, 2), Cells(i, 13)).Copy
Range("W2").PasteSpecial xlPasteValues
ActiveSheet.ChartObjects("Chart 2").Chart.Refresh
Next i
Application.CutCopyMode = False
End Sub
当前发生的情况是excel中的图形正在自动更新,但是PPT图形直到最后一个复制粘贴才更新。
任何帮助都会很好!
谢谢
我找不到任何地方可以上传文件,因此我附上了一张图片,向您展示我要做什么。 PPT图形被链接为图形对象。