I can select all objects in current layer with the following
ActiveLayer.Shapes.All.AddToSelection
but, how do I loop through all layers and add their shapes to Selection?
That works also; thanks kindly!
I needed to do it in a macro.
Thanks but yes, VBA is what I need.
There is a GUI button to select all objects. You can "press" it via macro:
Application.FrameWork.Automation.InvokeItem "a604992c-e7a6-4a72-85c1-4fcf0ec8ff77"
Nice, but his way also selects shapes/objects of Desktop layer in Master Page (if any...).
You can select all of them in this way and than remove the ones staying on Desktop layer. And also can use it if no shape on Master Page.
Anyhow Eskimo's code remains the most beautiful... :-)
And if it is just a matter of selection it can be even shorter (just one line):
1
ActivePage.Shapes.FindShapes(, , False, "@type != 'guide' and @com.layer.isguideslayer = 'False' and @com.layer.isdesktoplayer = 'False'").CreateSelection