hasta ahora he probado elChart.Refresh yChart.Update y tambiénChartData.UpdateLinks y tampoco trabajo. Mi pregunta es similar a esta solo que este código no funcionó para mi ppt¿Cómo actualizar Excel gráficos incrustados en PowerPoint?

Si pudiera grabar macro como en Excel, los pasos serían:

1. Seleccione Gráfico

2.Herramientas de gráficos>Actualizar datos

Este es el código que he logrado escribir pero falla en "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

El número entero i se incluye para ir de i = 1 a 73, pero como prueba estoy usando la diapositiva 3. No todas las diapositivas tienen gráficos, pero la mayoría de ellos tienen 4 gráficos (65 de 73).

¡Muchas gracias por tu ayuda! =)