Код для групповой картинки в Powerpoint

Question

Я написал макрос для пакетной обрезки и изменения размеров изображений на выбранных слайдах, изменение размера работает хорошо, но после добавления кодов обрезки он не работает. Пожалуйста, смотрите коды, как показано ниже, что-то не так? добро пожаловать и спасибо предложение.

Sub crpicture ()
Dim osld As Slide
Dim oshp As Shape

For Each osld In ActiveWindow.Selection.SlideRange
For Each oshp In osld.Shapes

 oshp.PictureFormat.CropLeft = 0
 oshp.PictureFormat.CropTop = 0.5 * 72
 oshp.PictureFormat.CropRight = oshp.Width - oshp.Height
 oshp.PictureFormat.CropBottom = 0

 oshp.Height = 3 * 72
 oshp.Left = 3.4 * 72
 oshp.Top = 0.7 * 72
 oshp.ZOrder msoSendToBack

      Next
 Next
 End Sub