Hi,

I have a problem to update the chart formats, eg data labels & axis by using the code below.

I hope someone can help me.

Thanks in advance,
Apple

Sub updatelinks()
Dim sld As Slide, shp As Shape

For Each sld In ActivePresentation.Slides
   For Each shp In sld.Shapes
      On Error Resume Next
      shp.LinkFormat.Update
   Next
Next
End Sub