In diesem Beispiel werden alle verknüpften OLE-Objekte des ersten Tabellenblattes aktualisiert.
For Each s In Worksheets(1).Shapes If s.Type = msoLinkedOLEObject Then s.LinkFormat.Update Next