I am looking to open the Edit Data excel table in a Word Chart to update the information for multiple charts in the document. I am looking to loop through all shapes in the document or I could call a chart using it's title too.
This is what I have so far and it just loops through the document and does nothing:
Sub ChartsUpdate()
Dim objShape As InlineShape
For Each objShape In ActiveDocument.InlineShapes
If objShape.Type = wdInlineShapeChart Then
objShape.Chart.ChartData.ActivateChartDataWindow
End If
Next
End sub