connecting users of the CorelDRAW family of products
We take every threat seriously. CorelDRAW.com has not been affected by the Heartbleed security bug.

New features added to the FREE macro: Inner Shadow

Not Answered This post has 0 verified answers | 96 Replies | 8 Followers

Share  
Page 2 of 7 (97 items) < Previous 1 2 3 4 5 Next > ... Last » | RSS

Top 10 Contributor
Melbourne
Male
Brian posted on Sat, Apr 9 2011 23:30

At the request of, or challenge from I should say, Jeff Harrison - I have added an extra feature to the above macro. If you run the macro and press the Create Inner Shadow button you get a black inner shadow, or white if the White Shadow checkbox was ticked. 

NEW: Pressing the button with a PLUS sign on it expands the macro interface and provides a button which opens the colour picker dialog. From there you can choose a custom colour for the inner shadow. After choosing your colour press the Apply Inner Shadow button next to the custom colour button to create your inner shadow. I was even kind enough to use the Americanized spelling of the word colour: i.e. color Stick out tongue

Please excust the over-compressed video...here is the macro in action (the macro itself is attached):

Brian Melbourne

All Replies

Top 10 Contributor
Melbourne
Male

Hi everyone,

attached is the same InnerShadow macro previously posted, but pops up a message to let you know grouped objects are not supported at this current time if you try to run it on a group of objects. If you are aware that the macro does not work with groups (at the moment) then there is probably no need to change the macro you already have. I took the easy way out (just for now) on that one because I spent the time making something else.

Did I ever tell you that making one object sit to another in an aligned fashion is a snap? Stick out tongue

Brian Melbourne

Top 10 Contributor
Melbourne
Male

Just in case it wasn't obvious enough, 1 represents the first shape selected and 2 the second shape selected.

Brian Melbourne

Hi Brian,

Inner Shadow: If the objects aro NOT groupped, the effect CAN be applied to them with no problems.

Top 10 Contributor
Melbourne
Male

I received a query from David Milisock regarding the Inner Shadow macro. David's query was in relation to changing the colour of the inner shadow, after applying it.

The macro was intended to work like this:

1.       Select a shape, or range of shapes

2.       Choose a setting and press the  Apply Inner Shadow button, or choose a colour with the Custom button and then apply inner shadow

3.       If you are not happy with the result, hit the Undo button and repeat steps 1 & 2 with different settings

 

Pressing the apply inner shadow button again creates a new inner shadow in addition to the original one.

My understanding of David's query was basically...what if you save the file and come back to it later, or perform dozens more steps and want to come back and change the colour of the inner shadow then? You can't use the Undo button as the inner shadow was created many steps back.

I gave this some thought and revised the macro a little as noted in the following image:

 

 

I have sent the macro to David for testing to make sure I haven't introduced any issues with my changes...I have tested myself and it seems fine. Once David confirms all is well I will post the revised macro into the forum.

Best regards,
Brian.

Brian Melbourne

hi brian ,

I did like your macro ,its wonderfull..

I have a query ,

Can we change the thickness of the shadow and can it apply outer shadow as well.?

Could there be a slight refinement to this macro like converting the shadow to a bitmap with transparent background and antialiasing, add a Gaussian blur, and then insert into powerclip?  Or just add a radial for this option?

    Set s1 = OrigSelection.ConvertToBitmapEx(cdrRGBColorImage, False, True, 300, cdrNormalAntiAliasing, True, False, 95)
    s1.Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=2000,GaussianBlurResampled=0"

I hate pressing F8 at startup!

please provide us to download teh bd quick snap.gms also

thanking you

Top 10 Contributor
Virginia USA
Male

Hellllllllooooooooo Brian; This thing is GRATE works well in Draw X6 Haven't tried in X4 yet. Attached is a sample I done.

      

I like it better than I do the "Bevel" Tool THANKS, And I OWE you a beer or two

George

TheSignGuy

Top 150 Contributor
Califorina

Hey Brian,

 

This is great! Finding many uses for it Big Smile

 

Thanks

Top 150 Contributor
Worcestershire, England
Female

Wow this is fabulous Brian.......just what I am looking for!

Now all I need to do is work out how to install it Big Smile

Top 10 Contributor
Melbourne
Male

Hi George

I am glad you have found it to be of some use.

Thank you to all who have left nice comments. I just realised that I never posted the most recent version of the macro, so I am attaching it here now. David Milisock requested it to be able to handle all colour models including Pantone Colours, so an updated version was made accordingly. I also added an extended section to the macro (click the plus sign) allowing storage of custom colours for future use. These are remembered after the macro (or CorelDraw) has been closed and reopened. I will make a video and type out some instructions as soon as I get time.

Best regrds,
Brian.

Brian Melbourne

Top 10 Contributor
Melbourne
Male

pkg_sriram:

please provide us to download teh bd quick snap.gms also

thanking you

 

Here you go Big Smile

Brian Melbourne

Top 10 Contributor
Melbourne
Male

pkg_sriram:

please provide us to download teh bd quick snap.gms also

thanking you

 

Here you go Big Smile

Brian Melbourne

Top 10 Contributor
Melbourne
Male

pkg_sriram:

please provide us to download teh bd quick snap.gms also

thanking you

 

Here you go Sriram

Brian Melbourne

Top 10 Contributor
Melbourne
Male

PINKGEM:

Wow this is fabulous Brian.......just what I am looking for!

Now all I need to do is work out how to install it Big Smile

Hello Big Smile

Jeff has great instructions at this link

I hope you are doing well. I have to get back to work now.. have a lovely day.

Best regards,
Brian.

Brian Melbourne

Page 2 of 7 (97 items) < Previous 1 2 3 4 5 Next > ... Last » | RSS
© Corel Corporation. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms and Conditions / User Guidelines.