Sub PresentData() If Clipboard.DataPresent("Text") Then Clipboard.Clear Else MsgBox "There is no text data in the Clipboard." End IfEnd SubSub BitmapLink() Dim s As Shape Dim ret As VbMsgBoxResult Set s = ActiveSelection.Shapes(1) If Not s.CloneLink.BitmapColorMaskLinked Then ret = MsgBox("The Bitmap color mask link is broken. Do you want to restore it?", vbYesNo) If ret = vbYes Then s.CloneLink.BitmapColorMaskLinked = True MsgBox "The link is now active." End If End IfEnd Sub