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 26-04-2010, 12:26
biok
Guest
 
Posts: n/a
Default PMS color - X5 Issue

If you are dealing with PMS colors and you try to get the Color Density of a shape. It doesn't work. Using the code below Instead get "ID:17 Density:55", I get "ID:17 Density:228662978" !!! I think there's something wrong going on here.

Code:
Dim s1 As Shape
    
Set s1 = ActiveLayer.CreateEllipse2(4, 4, 2)
s1.Outline.SetNoOutline
s1.Fill.UniformColor.FixedAssign cdrPANTONECoated, 17, 55
   
MsgBox ActiveDocument.ActiveShape.Fill.UniformColor.Name(True)
Reply With Quote
  #2  
Old 26-04-2010, 12:33
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
Works as expected in x4.
In x5 I'm getting a different value for density: 1085256609

Seems to be a bug.

You could try running with different default CM settings.

-John
Reply With Quote
  #3  
Old 27-04-2010, 09:20
biok
Guest
 
Posts: n/a
Default

Yes, that is what I though. Seems to be a bug. A big one I would say!
Reply With Quote
  #4  
Old 27-04-2010, 21:32
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
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 Bug

It is a bug, but you could work around it by:

Converting the Color to a String and getting the last number:

Code:
MsgBox ActiveDocument.ActiveShape.Fill.UniformColor.ToString
or just get the Tint:

Code:
MsgBox ActiveDocument.ActiveShape.Fill.UniformColor.Tint
Hope that helps,

-Shelby
Reply With Quote
  #5  
Old 29-04-2010, 14:52
biok
Guest
 
Posts: n/a
Default

Perfect! that work just fine. Thanks
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
Macro bug / units issue Rick Randall CorelDRAW/Corel DESIGNER VBA 2 19-02-2008 08:22
Eraser issue jahmer General 0 17-01-2008 16:59
SetSize issue Dave Rowland CorelDRAW/Corel DESIGNER VBA 3 11-01-2008 17:36
weird font issue bbolte CorelDRAW/Corel DESIGNER VBA 1 21-04-2005 16:20
Thumbnailer Issue with EPS files vallentin Macros/Add-ons 2 16-03-2004 11:04


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


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