I want to select all the objects by ignoring the active selection, that too this happened within the active group selection and not normal outside. this script is for active group
selection.By holding the Control Key, i made a selection, now i run the script, now i want the invert
selection within that group only
Sub InvertSelection()
Dim sr As ShapeRange
On Error GoTo ErrHandler
ActiveDocument.BeginCommandGroup "Invert Selection"Set sr = ActiveDocument.SelectionRangeActivePage.Shapes.All.CreateSelectionsr.RemoveFromSelection
ExitSub: ActiveDocument.EndCommandGroup Exit Sub
ErrHandler: MsgBox "Error occured: " & Err.Description Resume ExitSub
End Sub
no sir not working. i have selected only one object using the control hold (within the group). say this group name is : X. if i run the script then inversely have to select other objects within the X only.