1 2 3 4 5 6 7 8 9 10 11 | iSelectionAddress = Selection.Address iSelectionAddress = Excel.Selection.Address iSelectionAddress = Application.Selection.Address iSelectionAddress = ActiveWindow.Selection.Address MsgBox iSelectionAddressЕсли в момент исполнения будет выделен графический об'ект, то Вы получите ошибку, которую можно избежать, если использовать соответствующую проверку или следующий вариант.iSelectionAddress = ActiveWindow.RangeSelection.Address MsgBox iSelectionAddressОтличие RangeSelection от Selection заключается в том, что при выделенных графических об'ектах это свойство возвращает диапазон, который был выделен перед выделением графического об'екта. |