Returns the collection of selected objects as a Selection. Each object in this collection is represented by an SIObject object.
'
' Get the name of each selected object
'
SelectAll
set oSelection = Application.Selection
for each oItem in oSelection
LogMessage oItem.Name
next
|