PPT 宏 macro图片crop

    'ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoFalse
    'x = ActiveWindow.Selection.ShapeRange.Width
    'x = ActiveWindow.Selection.ShapeRange.Height

    '图片crop起始点
    ActiveWindow.Selection.ShapeRange.PictureFormat.CropLeft = 430
    ActiveWindow.Selection.ShapeRange.PictureFormat.CropTop = 310
    'ActiveWindow.Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 300
    'ActiveWindow.Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 300
    'ActiveWindow.Selection.ShapeRange.Width = 100
    'ActiveWindow.Selection.ShapeRange.Height = 100
    '图片crop大小
    ActiveWindow.Selection.ShapeRange.PictureFormat.Crop.ShapeHeight = 100
    ActiveWindow.Selection.ShapeRange.PictureFormat.Crop.ShapeWidth = 100
    
    'ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
   

    '图片crop后起始点

    ActiveWindow.Selection.ShapeRange.Top = 0
    ActiveWindow.Selection.ShapeRange.Left = 0