Выжеление рисунка среди других и доступ к его свойствам

[Андрей]

Подскажите, пожалуйста, почему приведенный ниже код в Office 97 работает отлично, а в более поздних - Office 2000, XP - нет? :?:

' Найти в активном документе
With AppWord.ActiveDocument
' число вставленных объектов
i = .Shapes.Count
' и последний объект выделить
.Shapes(i).Select
End With
With .ShapeRange
' Обрезать выделенный объект справа на 1,5 см
.PictureFormat.CropRight = 42.52
' Обрезать выделенный объект сверху на 0,2 см
.PictureFormat.CropTop = 5.67
' Скорректировать положение объекта слева
.Left = 0
' Скорректировать положение объекта сверху
.Top = 0
End With

Команда i = .Shapes.Count выдает 0 объектов и поэтому на следующей строке возникает ошибка. В документе находится, например от 1 до 3 объектов типа Mathcad, PhotoShop и пр.

Спасибо.
[/b]

[Naeel Maqsudov]

А попробуйте ка ActiveDocument.Range.ShapeRange.Shapes.Count

[Андрей]

Нет, не работает.
Воспринимаемый формат: ActiveDocument.Range.ShapeRange.Count, однако VB свойство Range не находит.