OberonPlace.com Forums  

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

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

Hello
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
docCorel.ActivePage.FindShape(NAME:="Verlauf").AddSelection
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
  #2  
Old 25-02-2004, 16:05
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default Re: ApplyFountainFill

Patrik,

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:

Code:
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
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


All times are GMT -5. The time now is 16:29.


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