Bitmap.ApplyBitmapEffect

Sub ApplyBitmapEffect(UndoString As String, Command As String)

Member of Bitmap

The ApplyBitmapEffect method applies the specified bitmap effect.


Parameters	Description
UndoString	Specifies the name in the Undo list
Command	Specifies the effect to apply

The following code example applies the Whirlpool effect to all bitmaps on the active page.

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.ConvertTo cdrRGBColorImage 
   End If 
   s.Bitmap.ApplyBitmapEffect "Whirlpool", "WhirlpoolEffect.V11 
WhirpoolSpacing=20,WhirlpoolSmear=9,WhirlpoolTwist=70,WhirlpoolStr
eak=60,WhirpoolWarp=1,WhirlpoolRandomSeed=0" 
  End If 
 Next s 
End Sub