Get Shape Index ID Value

Hello I did my best to search the site as this seems simple.

I want to act on the Index ID of a specific shape.

For instance the following.

Dim s As Shape
For Each s In ActivePage.Shapes
    MsgBox s.Item.Index.Value
Next s

I want this number...X

ActivePage.Shapes(X).Delete

Then I should be able to delete all Shape IDs which are >= 1 Or <= 11

Am I just not thinking?

Thanks!

Hi,
It's been a while on this one but I think you might approach it like this.
HTH,
Craig...

Create a new ShapeRange

Dim lcDelShapeRange As New ShapeRange

Then when you come across a shape you want to delete,

For Each mShape In ActivePage.Shapes
   If mShape.Item.Index.Value >=1 And mShape.Item.Index.Value <=11
      lcDelShapeRange.Add ActivePage.Shapes(lcShapeName)
   End if
Next mShape

Lastly delete,

If lcDelShapeRange.Count Then
   lcDelShapeRange.Delete
End If

Ok I just realized something that these id numbers change instantly so I wont be able to delete directly but rather add them to a shape range and then delete the range.

Sorry I wasn't clear...

mShape.Item.Index.Value doesn't work I need to figure out how to retrive the ID from the Shape reference when parsing the ActivePage.Shapes object.

Another question what is the difference between these statements?


ActivePage.Shapes.Item(1)
ActivePage.Shapes(2)

[Alex]

Index is the default property of Shapes object. So writing Shapes(1) or Shapes.Item(1) is the same thing. VBA automatically calls Shapes.Item(1) when it sees Shapes(1)

If you want to delete the first 11 shapes of the collection you can do this:

Sub Delete11Shapes()
    Dim ss As Shapes
    Dim nCount As Long
    Dim i As Long
    Dim sr As New ShapeRange
    
    Set ss = ActivePage.Shapes
    nCount = ss.Count
    If nCount > 11 Then nCount = 11
    For i = 1 To nCount
        sr.Add ss(i)
    Next i
    sr.Delete
End Sub

Cool that makes sense thanks very much.

But just so I understand can you get that number (Shape(ID)) and echo it with something like MsgBox? or is it strictly internal?