選択されているオブジェクトのコレクションをSelectionとして戻します。このコレクション内の各オブジェクトは、SIObjectで表現されます。
' ' Get the name of each selected object ' SelectAll set oSelection = Application.Selection for each oItem in oSelection LogMessage oItem.Name next