crash when trimming shapes - help please

[runflacruiser]

Hi,
Can anyone help me out here.

I have a sub in a module that creates some shapes.
Another sub in the same module tries to access the shapes created by the first sub and seems to crash when I trim the shapes.
I named the shapes in the first sub so I could find them in the second sub.

The first sub runs and completes, then I have another form that pops up and the user can activate the 2nd sub (below).

Here's the code for the second sub:

Sub trimShadow()
    Dim s As Shape, s1 As Shape
    Dim sr As New ShapeRange
    Set s = ActivePage.FindShape(Name:="mainshape1")
    sr.Add s
    Set s1 = ActivePage.FindShape(Name:="offsetshape1")
    sr.Add s1
    sr(1).Trim sr(2), False, False
End Sub

Basically I want to access the shapes created by the first sub and trim them, but it seems to keep crashing corel x4

I'm pretty frustrated but I know there's gotta be a simple way to do this.

Thanks in advance.
-John

[runflacruiser]

Hi,
I think I got it.
I don't know why it crashes corel when both parameters of trim are set to false.

I had to set them both to true and delete the shapes later.

who knows...

[shelbym]

I can confirm with the False, False it does crash, so as you said, I would just delete the shapes after the fact. Also, I don't think you need the ShapeRange, you could just do this:

Sub trimShadow()
    Dim s As Shape, s1 As Shape
    Set s = ActivePage.FindShape(Name:="mainshape1")
    Set s1 = ActivePage.FindShape(Name:="offsetshape1")
    s.Trim s1, True, True
End Sub

Best of luck,

-Shelby

[runflacruiser]

Thanks Shelby.

Yea. I was just trying every possible way. The weld crashed also.
It's these little bugs that can....well you know. lol.

-John