API Documentation > CorelDRAW > 2025-v26 > Bitmap > IVGBitmap
Bitmap.ApplyBitmapEffect method
Applies the specified bitmap effect
Syntax:
Sub ApplyBitmapEffect(ByVal UndoString As String, ByVal Command As String)
Parameters:
Name Type Description
UndoString
String
Command
String
Remarks:
The ApplyBitmapEffect method applies the specified bitmap effect.
Examples:
The following VBA example applies the Whirlpool effect to all bitmaps on the active page.
Sub ApplyBitmapEffect()
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 WhirpoolSpacing=20,WhirlpoolSmear=9,WhirlpoolTwist=70,WhirlpoolStreak=60,WhirpoolWarp=1,WhirlpoolRandomSeed=0"
  End If
Next s 
End Sub