Kan iemand mij uitleggen wat deze code precies doet?
Code:
Sub inplakken()
Range("C3").Select
Sheets(60).Paste
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementTop 0.00007874015748
Selection.ShapeRange.ScaleWidth 0.5161535594, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.2119922914, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 146
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 172
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementLeft 263.25
Selection.ShapeRange.IncrementTop 11.7499212598
Selection.ShapeRange.ScaleWidth 0.1582733813, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.7661298789, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 14
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 161
Selection.ShapeRange.IncrementLeft -222.75
Selection.ShapeRange.IncrementTop -6
Selection.ShapeRange.ScaleWidth 1.7052604788, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.7052612734, msoFalse, msoScaleFromTopLeft
Range("C17").Select
ActiveSheet.Paste
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementLeft 0.00007874015748
Selection.ShapeRange.IncrementTop -85
Selection.ShapeRange.ScaleWidth 0.514915781, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9538403882, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 146
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -10
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementLeft 263.9998425197
Selection.ShapeRange.ScaleWidth 0.1538464062, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.172065543, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 14
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 163
Selection.ShapeRange.IncrementLeft -229.5
Selection.ShapeRange.IncrementTop -17.25
Selection.ShapeRange.ScaleWidth 1.2499979495, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.2499978128, msoFalse, msoScaleFromTopLeft
Range("N6").Select
End Sub