Attribute VB_Name = "RefreshLinks"
Sub RefreshAllLinks()
    Dim sld As Slide, shp As Shape, n As Long
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Type = msoLinkedOLEObject Or shp.Type = msoLinkedPicture Then
                shp.LinkFormat.Update: n = n + 1
            End If
        Next shp
    Next sld
    MsgBox n & " linked objects refreshed", vbInformation
End Sub