OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > Corel Photo-Paint VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 16-05-2012, 03:11
hvw hvw is offline
Junior Member
 
Join Date: Jan 2012
Location: Ingelmunster (Belgium)
Posts: 13
Smile Diminishing shade in a photo

Make a selection of the shaded area and run following macro:

Dim X As Long
Dim Y As Long
Dim H As Long
Sub Schaduw()
Set Doc = ActiveDocument
Doc.Mask.Feather 4, pntFeatherInside, pntEdgeLinear
Application.CorelScript.EditCopy
X = Doc.Mask.PositionX
Y = Doc.Mask.PositionY
H = Doc.Mask.SizeHeight
Application.CorelScript.EditPasteObject
Set Laag = Doc.ActiveLayer
Laag.Move X, Y + H
With PHOTOPAINT.CorelScript
.BitmapEffect "Desaturate", "DesaturateEffect"
.BitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=600"
.BitmapEffect "Invert", "inverteffect"
End With
ActiveLayer.MergeMode = pntMergeOverlay
Set Laag = Doc.ActiveLayer
Laag.Opacity = 50
Doc.Layers.Merge
Doc.Mask.Delete
End Sub

With help of Shelbym

Last edited by hvw; 17-05-2012 at 05:22. Reason: Better result
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
New Photo-Paint improvements Robbiex General 3 30-08-2007 07:53
corel photo paint 8 1946out General 2 03-08-2006 15:25
Photo-Paint Scripts pudo Corel Photo-Paint CS 1 13-07-2005 11:48
Crop photo tonywong General 1 18-05-2005 02:53
Photo-Paint 11 Automation error ... Allan Shearer Corel Photo-Paint CS 1 15-09-2003 16:28


All times are GMT -5. The time now is 10:45.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com