Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
If s.Type = cdrBitmapShape Then
With s.Bitmap
If Not .Embedded Then
If DateDiff("s", FileDateTime(s.Bitmap.LinkFileName), _
.ExternalLinkTime) <> 0 Then
.UpdateLink
End If
End If
End With
End If
Next s
End Sub