Sub 奇数左下() Range("D14").Select ActiveSheet.Paste With Selection.ShapeRange .IncrementLeft -13.5 .IncrementTop -29.25 .PictureFormat.CropBottom = 20.25 .PictureFormat.CropTop = 19.5 End With Range("A1").Select End Sub