🚀 go-pugleaf

Thanks Ole -- in combining Rob Day's improvements to the original, I accidentally left out the line of his script that set the value of thePercent.

Let's try it again:



 
tell application "InDesign 2.0.2" 
	set myFrame to item 1 of selection 
	if class of myFrame is not in {group, table} then 
		set theProps to properties of myFrame 
		set thePercent to vertical scale of theProps 
		if page item 1 of myFrame exists then 
			try 
				set myVScale to absolute vertical scale of myPic 
				set myHScale to absolute horizontal scale of myPic 
				set picBounds to geometric bounds of myPic 
			end try 
		end if 
		--Beware line breaks: Following line should start with "set theProps" and ends with "& theProps"  
		set theProps to {absolute vertical scale:nothing, vertical scale:100, absolute horizontal scale:nothing, horizontal scale:100, stroke weight:thePercent * (stroke weight of myprops) / 100, corner radius:thePercent * (corner radius of theProps) / 100} & theProps 
		set properties of myFrame to theProps 
		try 
			--Beware line breaks: Following line should start with "set" and ends with "picBounds}"  
			set properties of page item 1 of myFrame to {absolute vertical scale:thePercent * myVScale / 100, absolute horizontal scale:thePercent * myHScale / 100, geometric bounds:picBounds} 
		end try 
	else if class of myFrame is group then 
		transform group contents myFrame 
		set textFrames to text frames of (get all page items of myFrame) 
		repeat with aFrame in textFrames 
			scale text attributes aFrame 
		end repeat 
	end if 
end tell 




Phew...

Shane