Bitmap.ConvertToBW

Sub ConvertToBW(RenderType As cdrRenderType, [Intensity As Long = 100], [Threshold As Long = 128], [Halftone As cdrHalftoneType = cdrHalftoneSquare], [HalftoneAngle As Long = 45], [HalftoneSize As Long])

Member of Bitmap

The ConvertToBW method converts the bitmap to the black and white color mode.


Parameters	Description
RenderType	Specifies the type of conversion
Intensity	Specifies the intensity of the applied color. This parameter is optional, and its default value is 100.
Threshold	Specifies the tolerance level for tonal variation for a line art conversion. This parameter is optional, and its default value is 128.
Halftone	Specifies a halftone screen. This parameter is optional, and its default value is cdrHalftoneSquare (0).
HalftoneAngle	Specifies the halftone angle. This parameter is optional, and its default value is 45.
HalftoneSize	Specifies the lines per unit for a halftone conversion. This parameter is optional, and its default value is 0.

The following code example converts all bitmaps on the active page to the black-and-white color mode.

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrBitmapShape Then 
   If s.Bitmap.Mode = cdrRGBColorImage Then  
    s.Bitmap.ConvertToBW cdrRenderLineArt, , 97 
   End If 
  End If 
 Next s 
End Sub