delete shapes

[mikeFin]

Somewhere I saw this code:

For I = shpsObj.Count To 1 Step -1
Set shpObj = shpsObj.Item(I)
shpObj.Delete
Next I


But it in Visio 2007 it looks like there is no "Item" available.
How could this be done?

 

[AlEdlund]

you might try
Set shpObj = shpsObj(I)
al

 

[JuneTheSecond]

Shapes object has Item property, isn't it?

 

[John Goldsmith]

Mike,

I wonder if you have declared the variable (ie Dim shpsObj as Shapes). If
you haven't you might not get intellisense on the object and so it might
appear as if you're not getting the expected methods and properties.

Anyway, as Al says, you don't need the word 'Item' as this is the default
property of the collection object.

Best regards

John


John Goldsmith
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk

 

[John Marshall, MVP]

Item is the default property, so shpsObj.Item(I) and shpsObj(I) are the same
thing.

Where were you looking in Visio 2007 that it did not appear? It should show
up in Intellisense.

John... Visio MVP

Need stencils or ideas? http://visio.mvps.org/3rdparty.htm
Need VBA examples? http://visio.mvps.org/VBA.htm
Visio Wishlist http://visio.mvps.org/wish_list.htm