View Single Post
If so, something like this would resize the selected images, retaining the vertical position of their upper edge.

property prScale : 0.5

tell application id "OGfl"
	tell front window
		set lstSeln to selection
		repeat with oShape in lstSeln
			tell oShape
				if class is shape then
					set image sizing to stretched
					set {{rLeft, rTop}, {rWidth, rHeight}} to {origin, size}
					set rNewWidth to rWidth * prScale
					set origin to {rLeft + ((rWidth - rNewWidth) / 2), rTop}
					set size to {rNewWidth, rHeight * prScale}
				end if
			end tell
		end repeat
	end tell
end tell

Last edited by RobTrew; 2012-08-01 at 11:51 PM.. Reason: Adjusted code to maintain centring as well as top edge