Examples:
The following VBA example determines if the BitmapColorMaskLinked property of the cloned bitmap object is broken (that is, False). A dialog box prompts the user to restore the bitmap color mask link. If Yes is chosen, the link is restored and a message is displayed in a message box.
Sub PresentData()
If Clipboard.DataPresent("Text") Then
Clipboard.Clear
Else
MsgBox "There is no text data in the Clipboard."
End If
End Sub Sub 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 If
End Sub