Shapes.AllExcluding

Function AllExcluding(IndexArray() As Variant) As ShapeRange

Member of Shapes

The AllExcluding method returns a ShapeRange object that contains all shapes (except for specified shapes) from the Shapes collection.

This function accepts a variable number of arguments. It also accepts arrays.


Parameters	Description
IndexArray	Represents a range of index numbers that identify and group specific shapes

The following code example deletes all of the shapes in the Shapes collection, except the two shapes that were most recently created. To run this example, there must be at least three shapes on the active layer.

Sub Test() 
 With ActiveLayer.Shapes 
  .AllExcluding(Array(1, 2)).Delete 
  MsgBox "There are " & .Count & " shapes in the Shapes collection." 
 End With 
End Sub