View Single Post
  #4  
Old 15-12-2011, 08:54
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
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 Color Values

If you are not making any changes to the color, why are you breaking it out to begin with? You can simply copy the color, if you do need to save it, you can us the .ToString then bring it back in and recreate it.
Code:
    Dim c As New Color
    Dim s As Shape, rect As Shape
    
    Set s = ActiveShape
    
    If s.Fill.Type = cdrUniformFill Then
        c.CopyAssign s.Fill.UniformColor
    End If
    
    Set rect = ActiveLayer.CreateRectangle2(0, 0, 2, 2)
    rect.Fill.ApplyUniformFill c
Hope that helps,

-Shelby
Reply With Quote