OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Old 25-02-2004, 11:22
Posts: n/a
Default ApplyFountainFill

Maybe someone could give me a hand. I am trying to get out of Microsoft Access with VBA and CorelDraw 11 the following:

Dim shpVerlauf As Shape
Set shpVerlauf = docCorel.ActiveShape

With shpVerlauf.Fill.ApplyFountainFill(CreateCMYKColor(8, 5, 3, 0), CreateCMYKColor(8, 5, 3, 0), cdrLinearFountainFill, 0.000001, 0, 0, 50, cdrCustomFountainFillBlend).Colors
.Add CreateCMYKColor(9, 5, 3, 0), 66
.Add CreateCMYKColor(30, 16, 6, 0), 78
.Add CreateCMYKColor(8, 5, 3, 0), 91
End With

As soon as I aply the code, the gradient turns into unwanted color strips !!! So I can select my shape, but I cannot move the three colors to where I want - and no clue how to move further.

Thanks for any hint. Patrik.
Reply With Quote
Old 25-02-2004, 16:05
Alex's Avatar
Alex Alex is offline
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default Re: ApplyFountainFill


First of all, I just wanted to point this out that you don't have to select a shape before using it. So, instead of calling CreateSelection and then getting a reference to ActiveShape, you should immediately set the shape returned by FindShape to your variable:

Set shpVerlauf = docCorel.ActivePage.FindShape(Name:="Verlauf")
As far as the gradient is concerned, I'm not sure I understand your problem. The code you have create a fountain fill with three intermediate color points at 66, 79 and 91 percent that looks like the image in the attachment. Isn't that what you try to do?
Attached Images
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

All times are GMT -5. The time now is 00:53.

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