View Single Post
Old 17-08-2010, 18:07
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
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 Cloned Text

With X4, this should be pretty simple. You can use CQL to find all the clone Masters, then loop through them breaking them apart. Something like this:
Sub BreakApartClonedText()
    Dim s As Shape
    Dim srCloneMasters As ShapeRange
    Dim srBreakMeApart As New ShapeRange
    Set srCloneMasters = ActivePage.Shapes.FindShapes(Query:="@com.clones.count > 0 and @type = 'text:artistic'")
    For Each s In srCloneMasters
        srBreakMeApart.Add s
        srBreakMeApart.AddRange s.Clones()
        Set srBreakMeApart = Nothing
    Next s
End Sub
The only way I know to turn a clone into a regular shape is to select the master and all its clone then breakapart. If anyone knows an easier way to do this, let me know.

Reply With Quote