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 08-07-2006, 03:33
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
Default Removing Fountain Fills Macro problem

Hello,

I have the following macro which I thought would remove fountain fills:

Code:
Sub convertfountain()

Dim s as shape 
  
For Each s In ActivePage.FindShapes
If s.Fill.Type = cdrFountainFill Then
s.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
End If
Next s
 
End Sub
Objects with fountain fills become white. I can then change the colour using the palette. However, if I run the macro a second time any object that has had its colour changed manually still seems to be treated as having a fountain fill and the colour is changed back to white. What am I missing? Ideally, I'd like to be able to change the fountain fills to the colour that is the midpoint colour and remove the fountain fill but I don't know how to do that.

Chris (Hunt)
Reply With Quote
  #2  
Old 08-07-2006, 10:05
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,790
Blog Entries: 13
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Fountain Fill

What version of CorelDRAW are you trying this in. I tried your code in X3 and it worked fine. Fountain Fills were changed to white the first them. I then manual changed there color to something else, and the script ignored them like it should.

Thanks,

Shelby
Reply With Quote
  #3  
Old 08-07-2006, 22:52
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
Default

Hi Shelby,

Thanks for the reply, I'm using version 12.

Chris
Reply With Quote
  #4  
Old 09-07-2006, 11:10
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

No pc here so my guess is - use applyfill method if there is one - the problem is that you do not change fill type
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
Problem with CopyToIllustrator macro under CorelDRAW X3 Soloway Macros/Add-ons 12 18-03-2006 22:05
Problem with shortcut key and macro knowbodynow Macros/Add-ons 3 10-03-2006 05:15
Removing mesh fills Wendy Hurst General 5 01-11-2005 14:12
Problem with Page Numbering macro pmills Macros/Add-ons 1 07-05-2005 08:49
problem with script or macro. Dr Morpheus CorelDRAW/Corel DESIGNER VBA 1 12-02-2004 13:46


All times are GMT -5. The time now is 07:11.


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