set myDifferenz to (mySeitenFlaecheProzent - myObjektFlaeche) 
set myWachstum to ((myDifferenz / 2) * myObjektVerhalt) 
 
set geometric bounds of myObjektProof to {mytop, myleft, (mybottom + myWachstum), (myright + myWachstum)} 

repeat with myObjekte from 1 to (count Auswahl) 
			set myObjektProof to item myObjekte of Auswahl 
			 
			-- Rahmen der einzelnen Objekte auslesen 
			tell myObjektProof 
				set myBounds to geometric bounds as list 
				set mytop to item 1 of geometric bounds 
				set myleft to item 2 of geometric bounds 
				set mybottom to item 3 of geometric bounds 
				set myright to item 4 of geometric bounds 
				 
				-- Breite und Höhe des Objektes berechnen 
				set myBreiteObjekt to (myright - myleft) 
				set myHoeheObjekt to (mybottom - mytop) 
				 
				-- Fläche des Objektes berechnen 
				set myObjektFlaeche to (myBreiteObjekt * myHoeheObjekt) 
				 
				 
				-- Fläche Objekt und Seite vergleichen 
				if myObjektFlaeche < mySeitenFlaecheProzent then 
					 
					-- Faktor berechnen 
					set myWachstum to (mySeitenFlaecheProzent / (myBreiteObjekt * myHoeheObjekt)) 
					-- Wurzelberechnung 
					set myWachstum to myWachstum ^ (1 / 2) 
					-- neue Breite					 
					set myPlus1 to myWachstum * myBreiteObjekt 
					-- neue Höhe 
					set myPlus2 to myWachstum * myHoeheObjekt 
										 
					-- Rahmen anpassen 
					set geometric bounds of myObjektProof to {mytop, myleft, (mytop + myPlus2), (myleft + myPlus1)} 
					 
				else 
					-- für später 
				end if 
				 
			end tell 
			 
			 
end repeat