I am trying to contour an outline, separate the contour from the outline, move the outline, and then select the contour object that I just separated. Any help would be greatly appreciated.
Is that what you need?
Dim eff As Effect, s As Shape, sCont As Shape, shR As ShapeRange, sh As Shape
Set eff = ActiveSelection.CreateContour(cdrContourOutside, 1, 1)
Set shR = eff.Separate
Set s = ActiveShape
s.name = "Parent"
For Each sh In shR.Shapes
If sh.name <> "Parent" Then Set sCont = sh
sCont.name = "Contour"
Thanks, that is it, and it is so simple. I was overcomplicating it. Thanks for your help!
Glad to help...