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

Reply With Quote