Object Model Reference : Classes : B : Bitmap : Methods : Bitmap.ApplyBitmapEffect
|
|
| Object Model Reference : Classes : B : Bitmap : Methods : Bitmap.ApplyBitmapEffect |
Sub ApplyBitmapEffect(UndoString As String, Command As String)
Member of Bitmap
The ApplyBitmapEffect method applies the specified bitmap effect.
|
Parameter
|
Description
|
|
UndoString
|
Specifies the name in the Undo list
|
|
Command
|
Specifies the effect to apply
|
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.