Bitmap.Cropped

Property Cropped As Boolean

Member of Bitmap

The Cropped property returns True if the bitmap can be cropped.

The Cropped property returns a read-only value.

The following code example displays the number of bitmaps that can be cropped on the active page.

Sub Test() 
 Dim s As Shape, n As Long 
 n = 0 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrBitmapShape Then 
   If s.Bitmap.Cropped Then n = n + 1 
  End If 
 Next s 
 MsgBox "There are " & n & " bitmaps which can be cropped." 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.