Hallo Hans-Gerd,
den Code findest Du im "GrafikrahmenAnpassen"-Script. (Für die anderen Teilnehmer: dieses Script war das Ergebnis der Aufgabe des Themas "rahmen fuer infografiken automatisch".)
Einen Link zum verlorenen Script habe ich nicht. Aber ich werde Dir von meinem Bild-Anpassungs-Script je eine Version für QXP 4.11 und 5.01 zustellen.
Hier ein stark gekürzter Ausschnitt:
---
tell document 1 of application "QuarkXPress 4.11"
tell current box
tell image 1
if bounds is not {0, 0, 0, 0} then
set bounds to exact fit
set {yP, xP} to scale as list
set yP to yP as real
set xP to xP as real
if yP > xP then
set yP to ((yP + 0.5) div 0.1) / 10
set xP to yP
else
set xP to ((xP + 0.5) div 0.1) / 10
set yP to xP
end if
set scale to {yP, xP}
set bounds to centered
end if
end tell
end tell
end tell
---
Das Script passt das Bild mit dem kleinstmöglichen Prozentwert ein und gibt ein halbes Prozent "Reserve" dazu, damit das Bild zentriert werden kann. Dank der negativen Versatzwerte können Blitzer verhindert werden.
Zuerst wird das Bild mit 'exact fit' so eingepasst, dass es den Rahmen füllt. Dies entspricht dem Tastaturkürzel Befehl-Umschalt-F. Meistens ist es dabei verzerrt. Das Script notiert den grösseren Prozentwert, gibt 0.5 dazu, dividiert mit 0.1 und teilt das Ergebnis durch 10, damit es nur eine Nachkommastelle gibt.
Anschliessend wird das Ergebnis den X- und Y-Werten zugewiesen und mit 'set bounds to centered' wird das Bild eingemittet (der Tastaturkürzel ist Befehl-Umschalt-M).
Mit den Original-Scripts können mehrere Boxen aufs Mal behandelt werden.
Hans Haesler <hsa@ringier.ch>