View Single Post
  #2  
Old 15-10-2012, 23:58
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 BeakLineStyle

Basically you just need to convert the line to objects, then break the objects apart:
Code:
Sub BreakLineStyle()
    Dim s As Shape
    
    Set s = ActiveShape
    Set s = s.Outline.ConvertToObject
    s.BreakApart
End Sub
Best of luck,

-Shelby
Reply With Quote