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