OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Thread Tools Search this Thread Display Modes
Old 22-04-2011, 06:05
shark shark is offline
Senior Member
Join Date: Aug 2010
Location: Russia, Belgorod
Posts: 146
Default curve and contourgroup effect

Here's a question - i have a curve [shape1] and contourgroup [shape2] that linked with it.
[shape1].Effect.ContourEffect.Contour.ContourGroup points to [shape2]. So I can get [shape2] using a [shape1]. And how can I get a [shape1] if I have a [shape2] only ? Need to check all shapes and compares .Effect..Contourgroup or may be [shape2] have any property that points to source [shape1] ?

Thanks in advance

Last edited by shark; 23-04-2011 at 05:03.
Reply With Quote
Old 02-05-2011, 19:40
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811

I hope I'm not oversimplifying this.
Create a circle and add a single outer contour.

Debug with this code.
Sub test()

ActivePage.Shapes.FindShapes(, cdrContourGroupShape).CreateSelection

End Sub
Reply With Quote

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
How to find a effect using CQL ljesus7 CorelDRAW/Corel DESIGNER VBA 3 06-09-2010 14:22
Use Hex colors / Twist Effect Arjen82 New product ideas 2 26-06-2008 21:50
macro for break curve and join curve mgmcs Macros/Add-ons 2 26-05-2006 22:01
X3 Contour Effect... Which is correct? Kursad General 10 27-01-2006 09:36
diffusion effect on the pic's border leopardo General 1 08-08-2005 08:49

All times are GMT -5. The time now is 21:06.

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