Hello, I really can't understand why this question has gone unanswered for 6 months. And the answer is simple:Sub BhBp_lock_unlock()'MsgBox ActiveShape.LockedIf ActiveShape.Locked ThenActiveShape.Locked = FalseElseActiveShape.Locked = TrueEnd IfEnd Sub
Greetings!
bhbp.bg2 said:I really can't understand why this question has gone unanswered for 6 months.
The question was posted in the "CorelDRAW Graphics Suite for Mac" forum.
Just to share, a more concise and effective code might be:
ActiveShape.Locked = Not ActiveShape.Locked
I use this in most cases where one of two states is possible to be toggled. True, False, 1,0 etc.