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 sEnd Sub