LinkFormat Property Example

This example updates the links between any OLE objects on slide one in the active presentation and their source files.

For Each sh In ActivePresentation.Slides(1).Shapes
    If sh.Type = msoLinkedOLEObject Then
        With sh.LinkFormat
            .Update
        End With
    End If
Next