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?
or you can just press Ctrl-A (:
I needed to do it in a macro.
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
Thanks; even more beautiful!