Sub Embed() With ActiveShape.Bitmap If .ExternallyLinked = True Then .UpdateLink End If End WithEnd Sub