Prettige feestdagen aan alle lezers van deze blog!
Ik ga even een korte vakantie houden, 2 januari weer terug met nieuws, tips & trucs! Tot dan en een fantastisch, spam-vrij 2008 gewenst!
tell application "Adobe InDesign CS3"
activate
set myDoc to active document
set myFrame to selection
set myPage to parent of selection
set {a, b, c, d} to geometric bounds of item 1 of myFrame
paste into
set mySel to selection
set myPageitem to all page items of item 1 of mySel
set myImage to all graphics of item 1 of mySel
try
set {e, f, g, h} to geometric bounds of item 1 of myPageitem
on error
display dialog "Kopieer eerst een kader met het Selecteren-gereedschap (de zwarte pijl)."
delete myImage
return
end try
duplicate item 1 of myPageitem
delete myFrame
tell myPage
set myNewFrame to every page item whose geometric bounds is equal to {e, f, g, h}
set geometric bounds of item 1 of myNewFrame to {a, b, c, d}
end tell
end tell