Set Shape as Another Shape Fails.. ??

[superlative]

The following code fails:

Please Login or Register  to view this content.

gives the following error:
Run-Time error '-2147024809 (80070057)':
The item with the specified name wasn't found

the shape with the name "GroupName" does not exist, but my function returns true that it does exist. Not sure why. Please help. Thanks.

[Pauleyb]

Use F8 to step through your code. You'll see that tmpID is never empty (even for a shape that does not exist).

[superlative]

Thank-you. It's weird but after I changed the code to this:

Please Login or Register  to view this content.

it now works as intended.

I use the function extensively to check if shapes exist, and create or destroy them depending on whether they should exist. It's all working as intended. I am now puzzled - why does this new code work? Thanks!

[Pauleyb]

Because when ShapeName does not exist, WS.Shapes(ShapeName).ID does generate an error (but tmpID gets a value of 0 so it is not empty). In your initial code you told it to 'Resume Next' which means ignore the error. So, your code goes through the else clause EVERY time and Shapes_Exist is set to TRUE. In your second code, you tell it to skip over the if/else if there is an error. So, you set Shapes_Exist to False, an error occurs, and you exit, which is what you want.

You can actually remove the if/else clause and just keep the code in your else block since IsEmpty() will always be FALSE.

[superlative]

THANKS!!!

Yes, I rarely use On Error Resume Next. I had borrowed the code from some website, which is where it came from, but when I was debugging, I changed it around to my coding style. Thanks so much for helping me understand this!!