OberonPlace.com Forums  

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

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 12-12-2002, 18:36
Steve
Guest
 
Posts: n/a
Default How can I change middle colors in a custom Fountain Fill

I figured out how to do the "StartColor" and "EndColor", alot of this is self explainitory, but the middle colors in a custom fountain fill are not. Using the help files I came up with...

Code:
Set ff = ActiveShape.Fill.Fountain

For Each s In ActiveSelection.Shapes
    If s.Fill.Type = cdrFountainFill Then

        For i = 0 To ff.Colors.Count + 1
            c.CopyAssign ff.Colors(i).Color
            c.ConvertToCMYK
            If ComboBox2 = "Yellow" Then
             s.Fill.Fountain.Colors(i).Color.FixedAssign cdrPANTONECoated, 1, (c.CMYKBlack)
        Next i
    End If
Next s
This is a real scaled down version of what I'm doing but it's the jist of it.

What I want it to do is go through every color in the middle of a fountain fill (Only because the 'count' wont include the first and last) and change the CMYKBlack (tint and all) to the selection of ComboBox2.

I hope I explained it ok. Any clues? Thanks Again!! This is very helpfull.
________
Iolite vaporizer review

Last edited by Steve; 12-03-2011 at 00:29.
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
object lost it's linear fountain fill property after metalickaah CorelDRAW/Corel DESIGNER VBA 5 02-01-2005 22:36


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


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