invert selection of the below script is not working, someone help

pkg_sriram
over 1 year ago

Private Sub SelectionInverse()
Dim SHAPE_BhBp As Shape

For Each SHAPE_BhBp In ActivePage.Shapes

If SHAPE_BhBp.Selected = True Then
SHAPE_BhBp.Selected = False
Else
SHAPE_BhBp.Selected = True
End If

Next
End Sub

Parents
No Data
Reply Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.