Effects VBA syntax

CGS vX3, WinXP SR2

Question on VBA version of effects and filters, when converting from old 
CSC to VBA. For example with a selection

Dim cs As Object
Set cs = Application.CorelScript

' the basic old CSC syntax will work
Call cs.BitmapEffect("The Boss", "TheBossEffect BevelWidth=5, 
BevelHeight=100, Smooth=50, DropOff=1, Invert=0, Brightness=96, 
Sharpness=45, Direction=135, Angle=45")

' but the EffectTheBoss method of PHOTOPAINT.CorelScript does nothing
Call cs.EffectTheBoss(45, 5, 100, 96, 135, 1, 45, 50, 0)


Sub EffectTheBoss(Angle As Long, BevelWidth As Long, BevelHeight As 
Long, Brightness As Long, Direction As Long, Dropoff As Long, Sharpness 
As Long, Smooth As Long, Invert As Boolean)
Member of PHOTOPAINT.CorelScript


-- 
Take care,
 
Jonathan
-------------------
LITTLE WORKS STUDIO
http://www.LittleWorksStudio.com

What do you want to do? Convert some old Boss commands or CSC's to work
in X3/X4?

Alex Vakulenko had a Corel Script converter for another version, but
Corel gave up on scripting. The VBA object model is nowhere complete
for Photo-Paint as it is in Draw.

http://www.oberonplace.com/products/pp9-10cnv/index.htm

Apparently Corel does not think it worthwhile!?

VBA cannot be use with the Batch Process. I suppose it could be done
in using VBA, but.....

Digital Cameras are keeping the DRAW Suite alive? <grin>

I know almost nothing about VBA, yet in DRAW, I can record... :))

Maybe someone will raise their head and better answer you question.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 .BitmapEffect "The Boss", CHR(7) + "TheBossEffect 
BevelWidth+AD0-48,BevelHeight+AD0-185,Smooth+AD0-46,DropOff+AD0-1,
Invert+AD0-0,Brightness+AD0-100,Sharpness+AD0-98,Direction+AD0-288,Angle+AD0-29&
quot;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Ask Alex to wrtie a converter from older versions to the very latest :-)

Maybe James Aswell has a trick or two up his sleeve?
Hello, James :))

mr. bill :-)

http://gallery.oberonplace.com/



Jonathan N. Little wrote:
>
> CGS vX3, WinXP SR2
>
> Question on VBA version of effects and filters, when converting from 
> old CSC to VBA. For example with a selection
>
> Dim cs As Object
> Set cs = Application.CorelScript
>
> ' the basic old CSC syntax will work
> Call cs.BitmapEffect("The Boss", "TheBossEffect
BevelWidth=5, 
> BevelHeight=100, Smooth=50, DropOff=1, Invert=0, Brightness=96, 
> Sharpness=45, Direction=135, Angle=45")
>
> ' but the EffectTheBoss method of PHOTOPAINT.CorelScript does nothing
> Call cs.EffectTheBoss(45, 5, 100, 96, 135, 1, 45, 50, 0)
>
>
> Sub EffectTheBoss(Angle As Long, BevelWidth As Long, BevelHeight As 
> Long, Brightness As Long, Direction As Long, Dropoff As Long, 
> Sharpness As Long, Smooth As Long, Invert As Boolean)
> Member of PHOTOPAINT.CorelScript
>
>

Mr. Bill wrote:
> 
> What do you want to do? Convert some old Boss commands or CSC's to work
> in X3/X4?
> 
> Alex Vakulenko had a Corel Script converter for another version, but
> Corel gave up on scripting. The VBA object model is nowhere complete
> for Photo-Paint as it is in Draw.

That's for sure! Seems to have the classes listed but they don't function.


> Digital Cameras are keeping the DRAW Suite alive? <grin>
> 

What do you mean by that?

Sure if frustrating when for most of the time Corel had a superior 
offering over Adobe. The interface and usability of the tools were 
better when Adobe had enter in some numbers click preview, undo try 
different numbers...


-- 
Take care,
 
Jonathan
-------------------
LITTLE WORKS STUDIO
http://www.LittleWorksStudio.com