Guest
2012-08-01, 01:44 PM
If so, something like this would resize the selected images, retaining the vertical position of their upper edge.
Code:
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