Select shape if visible

[kiler40]

Hello everybody !
I have created a routine that selects all shapes in specific boundaries.
But i have a lot of hidden (Layers are controlling visibility) shapes.
Is there a way NOT TO select hidden one but just visible shapes ?

Thanks in advance !

Andrei

[Yacine]

Work with the selection of shapes of the active window, instead of the shapes of the page.

Code Select Expand


Sub test()
ActiveWindow.SelectAll
For Each shp In ActiveWindow.Selection
Debug.Print shp.Name
Next shp
Debug.Print "____"
For Each shp In ActivePage.Shapes
Debug.Print shp.Name
Next shp
End Sub

[kiler40]

Ah...
select all, and after that deselect what is not in the range i`m interested in.
Thanks a lot !
This was something new