I use this in evernote, and work fine.
It may be helpful for you too (although it may require some adjustment)
--==============================
-- Evernote > Scale Images
-- Version 1.0.0
-- Written By: Ben Waldie <ben@automatedworkflows.com>
-- 
http://www.automatedworkflows.com-- Description: This script scales embedded images in Evernote.
-- Version History:
-- 1.0.0 - Initial release
--==============================
-- Receive images as input
on open theImages	
	-- Ask the user to specify a scaled image size
	set theChoice to choose from list {"Low", "Medium", "High", "Custom"} default items {"Medium"} with title "Evernote > Scale Images Script" with prompt "Scale to what size?"
	if theChoice = false then return
	set theChoice to item 1 of theChoice	
	-- Set the maximum number of pixels accordingly, based on the specified scaled image size
	if theChoice = "Low" then
		set theMaxSize to 320
	else if theChoice = "Medium" then
		set theMaxSize to 640
	else if theChoice = "High" then
		set theMaxSize to 1280		
		-- If the user chose a custom size, ask the user to specify a maximum number of pixels
	else
		set theIcon to note
		set thePrefix to ""
		repeat
			set theMaxSize to text returned of (display dialog thePrefix & "Please specify a maximum number of pixels for the longest side:" default answer "320" with icon theIcon)
			try
				set theMaxSize to theMaxSize as integer
				exit repeat
			on error
				set thePrefix to "You must enter a number. "
				set theIcon to caution
			end try
		end repeat
	end if	
	-- Loop through the images received as input
	repeat with a from 1 to length of theImages
		set theImage to ((item a of theImages) as string) as alias		
		-- Launch the background image processor in OS X
		tell application "Image Events"
			launch			
			-- Open the image
			set theImage to open theImage
			tell theImage				
				-- Get the image's current dimensions
				set theDimensions to dimensions				
				-- Scale the image if it's larger than the maximum number of pixels
				if theMaxSize is less than (item 1 of theDimensions) or theMaxSize is less than (item 2 of theDimensions) then
					scale to size theMaxSize					
					-- Save the scaled image
					save
				end if				
				-- Close the image
				close				
			end tell
		end tell
	end repeat
end open