Private Function exportlayer(lyr As Layer)
Dim i As Long Dim s As Shape
' this is what I can do:
For Each s In lyr.Shapes
Call exportshape(s)
Next s
' and this is what I need: s = lyr.Shapes.Item(1) ' VBA hangs here
For i = lyr.Shapes.count to 2 step - 1
s = lyr.Shapes.Item(i) ' VBA hangs here
Next i
End Function
Any suggestions?
Ah, all I needed was "Set s = lyr.Shapes.Item(1)"