I need help modifying this code. When I use this code I need it to resize the picture to fit into the selected cell but keep the same aspect ratio. Also, is it possible to have the code compress the picture to reduce the file size?
Sub piccy()
Dim sFile As Variant, r As Range
sFile =...