How group picture box and text box in quark 4.11
How group picture box and text box in quark 4.11
- Subject: How group picture box and text box in quark 4.11
- From: Elmer Banate <email@hidden>
- Date: Wed, 11 Dec 2002 03:11:20 -0800 (PST)
Hi All,
Can anyone help me how to group picture box and text
box. I have a script that will import picture and make
a text box below the figure. But I can't group them.
I tried to do this.
group boxes {2, 1} from spread 1 of document 1
here is my script:
tell application "QuarkXPress 4.11"
activate
tell document 1
set fldr to choose folder with prompt "Now select
your graphics folder."
set grfxfldr to (list folder of fldr) as list
repeat with i from 1 to count of items in grfxfldr
set flname to item i in grfxfldr
set file_name to fldr & flname as string
make new picture box at beginning with properties
{bounds:{"0", "0p", "12p", "12p"}}
set tool mode to drag mode
select (every picture box whose bounds is {"0",
"0p", "12p", "12p"})
tell current box
import file file_name to current box
set boundsList to bounds as list
set {topbounds, bottombounds, rightbounds} to
{(item 2 of boundsList as real), (item 3 of boundsList
as real), (item 4 of boundsList as real)}
end tell
set txbxtopbounds to bottombounds + 6
set txbxbottombounds to bottombounds + 30
make new text box at beginning with properties
{bounds:{txbxtopbounds, "0", txbxbottombounds,
rightbounds}}
--this will group the art and the caption
select (every picture box whose bounds is
{topbounds, "0", bottombounds, rightbounds})
select (every text box whose bounds is
{txbxtopbounds, "0", txbxbottombounds, rightbounds})
group boxes {2, 1} from spread 1 of document 1
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.