Sub 一键反选()
Dim srCurSel As ShapeRange
Dim srToSelect As ShapeRang
Set srCurSel = ActiveSelectionRange
Set srToSelect = ActivePage.Shapes.All
srToSelect.RemoveRange srCurSe
srToSelect.CreateSelection
End Sub