expression.Update
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example updates all linked OLE objects in the active publication.
Dim pageLoop As Page
Dim shpLoop As Shape
For Each pageLoop In ActiveDocument.Pages
For Each shpLoop In pageLoop.Shapes
With shpLoop
If .Type = pbLinkedOLEObject Then
.LinkFormat.Update
End If
End With
Next shpLoop
Next pageLoop