小编Opt*_*usy的帖子

到目前为止，我已经尝试了Chart.Refresh和Chart.Update以及ChartData.UpdateLinks，但都没有工作。我的问题与此类似，只是此代码不适用于我的 ppt 如何更新 powerpoint 中的 excel 嵌入图表？

如果我可以像在 Excel 中那样录制宏，步骤将是：

1. 选择图表

2. 图表工具 >刷新数据

这是我设法编写的代码，但它在“gChart.Application.RefreshData”失败：

Sub refreshchart()
    Dim ppApp As PowerPoint.Application, sld As Slide
    Dim s As PowerPoint.Shape
    Dim gChart As Chart, i As Integer
    ppApp.Visible = True
    i = 3
     Set sld = ActivePresentation.Slides(i)
    sld.Select
   For Each s In ActivePresentation.Slides(i)
    If s.Type = msoEmbeddedOLEObject Then
   Set gChart = s.OLEFormat.Object
   With gChart.Application

   gChart.Application.Refresh
   Set gChart = Nothing
   End If
  Next s

 End Sub

包含整数 …