View Single Post
  #2  
Old 02-01-2007, 12:19
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 Combine

It does not work because you combined your shape. Change the s.Combine to Set s = s.Combine and it will work or even better do it like this:
Code:
Sub RegistrationColor()
    Dim s As Shape
    Set s = ActiveSelection.Combine
    s.OrderToBack
    s.Outline.Width = 0
    s.Fill.UniformColor.RegistrationAssign
    s.Name = "PlaceHolder"
End Sub
Shelby

Last edited by shelbym; 02-01-2007 at 12:22.
Reply With Quote