vba - パワーポイントで画像をバッチトリミングするためのコード

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