Change Keynote theme and preserve image dimensions

switchTheme.applescript

set themeName to "Black"

tell application "Keynote"
	set theSlides to slides of document 1
	set theImages to {}
	repeat with s in theSlides
		set theImages to theImages & (images of s)
	end repeat
	set theDimensions to {}
	repeat with i in theImages
		set theDimensions to theDimensions & {{height of i, width of i, position of i}}
	end repeat
	
	set the document theme of the front document to theme themeName
	
	set n to 1
	
	repeat with d in theDimensions
		tell item n of theImages
			set height to item 1 of d
			set width to item 2 of d
			set position to item 3 of d
		end tell
		set n to n + 1
	end repeat
	
end tell
end