set newPageWidth to 155 
set refPageWidth to 196 
set refBoxWidth to 190 
set refBoxHeight to 111 
 
 
tell application "QuarkXPress" 
	tell document 1 -- neue Seitenbreite einstellen 
		set page width to newPageWidth -- neue Seitenbreite einstellen 
		set widthDiff to refPageWidth - newPageWidth -- Differenz zwischen ist und soll 
		-- neue Breite und Höhe für die gelben Hinterleger ermitteln 
		set newBoxWidth to refBoxWidth - widthDiff 
		set newBoxHeight to refBoxHeight / refBoxWidth * newBoxWidth 
	end tell 
	 
	tell master document 1 -- Hinterleger umgrößern 
		repeat with i from 1 to 2 
			tell picture box ("∆:Satzspiegel_" & i) 
				set locked to false -- zunächst entsperren 
				set {y1, x1, y2, x2} to bounds as list 
				set y1 to y1 as real 
				set x1 to x1 as real 
				set y2 to y2 as real 
				set x2 to x2 as real 
				set y2b to y1 + newBoxHeight 
				set x2b to x1 + newBoxWidth 
				set bounds to {y1, x1, y2b, x2b} 
				set locked to true -- wieder sperren 
				 
			end tell 
		end repeat 
	end tell 
end tell 

on open droppedObjects 
  tell application "QuarkXPress" 
    open (item 1 of droppedObjects) as alias 
    tell document 1 
      tell picture box 1 
        set {y1, x1, y2, x2} to bounds as list 
        set y1 to y1 as real 
        display dialog "" & y1 
      end tell 
    end tell 
  end tell 
end open 

set y1 to coerce y1 to real