Bitmap.ExternalLinkTime

Property ExternalLinkTime As Date

Member of Bitmap

The ExternalLinkTime returns the time at which the bitmap was externally linked.

The ExternalLinkTime returns a read-only value.

The following code example updates the externally linked bitmap if the original bitmap had been modified since it was linked.

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