Name Seperated Object

[bprice]

Hey Everyone!

Quick question...

I draw a box and do this...

S.CreateContour(cdrContourInside, 1, 1, cdrDirectFountainFillBlend).Separate

When I do this, the active selection comes back to, or is still on, my originally selected square...

BUT... what I'd like to do is name the square created by the contour... or name the seperated object... after it has been seperated...

How would I do this?

Thanks in Advance,
B

[shelbym]

Wasn't sure what you meant by naming....but here is my attempt.

Sub NamingContour()
    Dim s As Shape
    Dim sContour As Shape
    
    Set s = ActiveShape

    Set sContour = s.CreateContour(cdrContourInside, 1, 1, cdrDirectFountainFillBlend).Separate(1)
    
    sContour.Name = "MyContour"
End Sub

Best of luck,

-Shelby

[bprice]

As usual... works like a charm and it's exactly what I needed... thank you muchly!

But... I'm curious... what does the (1) achieve or signify after the

.Seperate(1)

code?

B

[shelbym]

the (1) is the index of the shape I want to return. This way I know I am only getting wanted contour.

-Shelby

[Alex]

Contour.Separate returns a range of shapes which used to comprise the contour. Shelby's code is essentially this:

Sub NamingContour()
    Dim s As Shape
    Dim sContour As Shape
    Dim sr As ShapeRange    
    Set s = ActiveShape

    Set sr = s.CreateContour(cdrContourInside, 1, 1, cdrDirectFountainFillBlend).Separate
    Set sContour  = sr(1)
    
    sContour.Name = "MyContour"
End Sub

[bprice]

very interesting! I'm still learning all this stuff! I'm getting better... but still picking up stuff along the way! I appreciate the info and the help guys!

B