invert selection macro

can someone create a macro for invert selection 

  • I found some old gms file. It looks like it's working
    I will send it to you by e-mail

    • 'Hello!

      'Here is a possible solution. Surely there may be others.

      Private Sub BhBp_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

      'Greetings!