🚀 go-pugleaf

I have placed a lot of images in my file and cropped them.
 Here is the script that should give me the size of the cropped images,
 but instead I get the real, uncropped, size of the images� 

 AppleScript set myUseVisible to true tell application "InDesign 2.0" 	tell document 1 		tell view preferences 			set oldPrefs to properties 			set properties to {horizontal measurement units:centimeters, vertical measurement units:centimeters} 		end tell 		set oldDelims to AppleScript's text item delimiters 		set AppleScript's text item delimiters to {":"} 		repeat with i from 1 to count of links 

			set thePath to (file path of link i) as text 			set thePic to parent of link i 			set theHolder to parent of thePic 			set theParent to parent of theHolder 			set myBounds to visible bounds of thePic 			set theWidth to (item 4 of myBounds) - (item 2 of myBounds) 			set theHeight to (item 3 of myBounds) - (item 1 of myBounds) 



			-- in case it's in a group: 			repeat while class of theParent is not page 				set theParent to parent of theParent 			end repeat 			set {a, b, c, d} to visible bounds of theHolder 			set newFrame to make new text frame at theParent with properties {visible bounds:{a, b, a + 1, b + 100}, contents:((text item -1 of thePath) & "  " & (round theWidth) & "  " & (round theHeight) & "  "), fill color:color "Paper", label:"Pic label"} 			set properties of text frame preferences of newFrame to {ignore wrap:true, inset spacing:0, first baseline offset:cap height, vertical justification:center} 			set properties of parent story of newFrame to {applied font:"Times", font style:"Roman", point size:10, leading:10, justification:left, left indent:0.2, hyphenation:false} 			set theRight to horizontal offset of character -1 of newFrame 			set visible bounds of newFrame to {a, b, a + 1, theRight + 0.1} 		end repeat 		set AppleScript's text item delimiters to oldDelims 		tell view preferences 			set properties to oldPrefs 		end tell 	end tell end tell  

What I am doing wrong?