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
Set SR = ActiveSelectionRange Set SR1 = ActivePage.Shapes.All SR1.CreateSelection SR.RemoveFromSelection
no not working. the inversion selection must be happened within the group only
for example. there is a group. this group consists of many groups inside. and now using the control key holding i selected one object and wanted now to select all inversely within the main 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.