The code to resize an image is quite complex, so bear with me.
You can change the scale factor which is currently at 0.5. If you'd like to make the image larger or smaller, you can change the number.
set this_file to choose file without invisibles
tell application "Image Events"
-- start the Image Events application
-- open the image file
set this_image to open this_file
-- perform action
scale this_image by factor 0.5
-- save the changes
save this_image with icon
-- purge the open image data
on error error_message
display dialog error_message
We are not affiliated with Apple Inc. in any way shape or form. AppleScript© is copyrighted by Apple Inc. Our website is to showcase and develop powerful scripts which allow Mac users to use their computers more efficiently and expand the use of the computer. Please contact us at any time if you have any questions or concerns about AppleScript.
Copyright © www.AppleScripts.us 2017