var myLinks = app.documents[0[b]].links 

tell application "Adobe InDesign CS2" 
	set myDoc to active document 
	set myDialog to make dialog with properties {name:"Worauf soll geachtet werden?"} 
	tell myDialog 
		make dialog column 
		tell the result 
			set whichButtons to make radiobutton group 
			tell whichButtons 
				make radiobutton control with properties {static label:"100% und oben links"} 
				make radiobutton control with properties {static label:"100% und mittig", checked state:true} 
				make radiobutton control with properties {static label:"Gleiche Auflösung, mittig"} 
				make radiobutton control with properties {static label:"Gleiche Ausmaße"} 
			end tell 
		end tell 
	end tell 
	set nu to show myDialog 
	if nu is true then 
		set doThis to (selected button of whichButtons) + 1 
	else 
		destroy myDialog 
		break 
		beep 
	end if 
	--	display dialog doThis 
	 
	set allLinks to every link of myDoc 
	repeat with aLink in allLinks 
		if status of aLink is link out of date then 
			set col to class of parent of aLink 
			if (col is image) then 
				set anImage to parent of aLink 
				set t1 to item 1 of geometric bounds of anImage 
				set l1 to item 2 of geometric bounds of anImage 
				set b1 to item 3 of geometric bounds of anImage 
				set r1 to item 4 of geometric bounds of anImage 
				set h1 to b1 - t1 
				set w1 to r1 - l1 
				set xCenter to l1 + (w1 / 2) 
				set yCenter to t1 + (h1 / 2) 
				set prevPPIx to item 1 of effective ppi of anImage 
				set prevPPIy to item 2 of effective ppi of anImage 
				 
				set aLink to update aLink 
				set anImage to parent of aLink 
				 
				set t to item 1 of geometric bounds of anImage 
				set l to item 2 of geometric bounds of anImage 
				set b to item 3 of geometric bounds of anImage 
				set r to item 4 of geometric bounds of anImage 
				set h to b - t 
				set w to r - l 
				set xCenterNew to l + (w / 2) 
				set yCenterNew to t + (h / 2) 
				 
				if doThis = 1 then 
					set prevPoint to transform reference point of layout window 1 of myDoc 
					set transform reference point of layout window 1 of myDoc to top left anchor 
					set absolute vertical scale of anImage to 100 
					set absolute horizontal scale of anImage to 100 
					set transform reference point of layout window 1 of myDoc to prevPoint 
				else if doThis = 2 then 
					set prevPoint to transform reference point of layout window 1 of myDoc 
					set transform reference point of layout window 1 of myDoc to center anchor 
					set absolute vertical scale of anImage to 100 
					set absolute horizontal scale of anImage to 100 
					set transform reference point of layout window 1 of myDoc to prevPoint 
					if xCenterNew is not xCenter then 
						move anImage by {(xCenter - xCenterNew), 0} 
					end if 
					if yCenterNew is not yCenter then 
						move anImage by {0, (yCenter - yCenterNew)} 
					end if 
					 
				else if doThis = 3 then 
					set newPPIx to item 1 of effective ppi of anImage 
					set newPPIy to item 2 of effective ppi of anImage 
					 
					set xScaling to newPPIx / prevPPIx 
					set yScaling to newPPIy / prevPPIy 
					 
					if newPPIx is not prevPPIx then 
						set hs to absolute horizontal scale of anImage 
						set absolute horizontal scale of anImage to hs * xScaling 
					end if 
					 
					if newPPIy is not prevPPIy then 
						set vs to absolute vertical scale of anImage 
						set absolute vertical scale of anImage to vs * yScaling 
					end if 
					 
					if xCenterNew is not xCenter then 
						move anImage by {(xCenter - xCenterNew), 0} 
					end if 
					if yCenterNew is not yCenter then 
						move anImage by {0, (yCenter - yCenterNew)} 
					end if 
				else if doThis = 4 then 
					set geometric bounds of anImage to {t1, l1, b1, r1} 
				end if 
			end if 
		end if 
	end repeat 
end tell