// ScaleEveryImage.jsx   
//   
var myScale = prompt("Skalierungsfaktor", 0.5); // Skalierungsfaktor 
var myPics = app.documents[0].allGraphics;   
for (onePic = 0; onePic < myPics.length; onePic++){ 
  myPics[onePic].horizontalScale = myPics[onePic].horizontalScale * myScale; 
  myPics[onePic].verticalScale = myPics[onePic].verticalScale * myScale; 
} 

--AlleBilderSkalieren_01d.scpt  
property xScale : 100 
property yScale : 100 
property xOff : 0 
property yOff : 0 
 
tell application "Adobe InDesign CS2" 
  activate 
  try 
    destroy dialogs 
  end try 
  set aDialog to make dialog with properties {name:"Alle Bilder skalieren"} 
  tell aDialog 
    set column1 to make dialog column 
    tell column1 
      set row1 to make dialog row 
      tell row1 
        make static text with properties {static label:"Skalierung"} 
        make static text with properties {static label:" "} 
      end tell 
      set border1 to make border panel 
      tell border1 
        set column2 to make dialog column 
        tell column2 
          set row2 to make dialog row 
          tell row2 
            make static text with properties {static label:"X:"} 
            set xScale to make real editbox with properties ¬ 
              {edit value:xScale, minimum value:1, maximum value:1000, min width:36} 
            make static text with properties {static label:"%    ", min width:26} 
          end tell 
          set row3 to make dialog row 
          tell row3 
            make static text with properties {static label:"Y:"} 
            set yScale to make real editbox with properties ¬ 
              {edit value:yScale, minimum value:1, maximum value:1000, min width:36} 
            make static text with properties {static label:"%    ", min width:26} 
          end tell 
        end tell 
      end tell 
      set row4 to make dialog row 
      tell row4 
        make static text with properties {static label:"Versatz"} 
        make static text with properties {static label:" "} 
      end tell 
      set border2 to make border panel 
      tell border2 
        set column3 to make dialog column 
        tell column3 
          set row5 to make dialog row 
          tell row5 
            make static text with properties {static label:"X:"} 
            set xVal to make real editbox with properties {edit value:xOff, min width:36} 
            make static text with properties {static label:"mm", min width:6} 
          end tell 
          set row6 to make dialog row 
          tell row6 
            make static text with properties {static label:"Y:"} 
            set yVal to make real editbox with properties {edit value:yOff, min width:36} 
            make static text with properties {static label:"mm", min width:6} 
          end tell 
        end tell 
      end tell 
    end tell 
  end tell 
  set column4 to make dialog column at aDialog 
  tell column4 
    make static text with properties {static label:" ", min width:4} 
  end tell 
   
  set dlog to show aDialog 
  if dlog is false then 
    destroy aDialog 
    error number -128 
  else 
    set xScale to edit value of xScale 
    set yScale to edit value of yScale 
    set xOff to edit value of xVal 
    set yOff to edit value of yVal 
    destroy aDialog 
  end if 
   
  tell document 1 
    set allImgs to all graphics 
    repeat with i from 1 to count of allImgs 
      tell item i of allImgs 
        set properties to {horizontal scale:xScale, vertical scale:yScale} 
        set {y1, x1, y2, x2} to geometric bounds 
        set geometric bounds to {y1 + yOff, x1 + xOff, y2 + yOff, x2 + xOff} 
      end tell 
    end repeat 
     
    display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
     
  end tell 
end tell 

--AlleBilderSkalieren_02d.scpt  
property xScale : 100 
property yScale : 100 
property xOff : 0 
property yOff : 0 
 
tell application "Adobe InDesign CS2" 
  activate 
  try 
    destroy dialogs 
  end try 
  set aDialog to make dialog with properties {name:"Alle Bilder skalieren"} 
  tell aDialog 
    set column1 to make dialog column 
    tell column1 
      set row1 to make dialog row 
      tell row1 
        make static text with properties {static label:"Skalierung"} 
        make static text with properties {static label:" "} 
      end tell 
      set border1 to make border panel 
      tell border1 
        set column2 to make dialog column 
        tell column2 
          set row2 to make dialog row 
          tell row2 
            make static text with properties {static label:"X:"} 
            set xScaleVal to make real editbox with properties ¬ 
              {edit value:xScale, minimum value:1, maximum value:1000, min width:36} 
            make static text with properties {static label:"%    ", min width:26} 
          end tell 
          set row3 to make dialog row 
          tell row3 
            make static text with properties {static label:"Y:"} 
            set yScaleVal to make real editbox with properties ¬ 
              {edit value:yScale, minimum value:1, maximum value:1000, min width:36} 
            make static text with properties {static label:"%    ", min width:26} 
          end tell 
        end tell 
      end tell 
      set row4 to make dialog row 
      tell row4 
        make static text with properties {static label:"Versatz"} 
        make static text with properties {static label:" "} 
      end tell 
      set border2 to make border panel 
      tell border2 
        set column3 to make dialog column 
        tell column3 
          set row5 to make dialog row 
          tell row5 
            make static text with properties {static label:"X:"} 
            set xVal to make real editbox with properties {edit value:xOff, min width:36} 
            make static text with properties {static label:"mm", min width:6} 
          end tell 
          set row6 to make dialog row 
          tell row6 
            make static text with properties {static label:"Y:"} 
            set yVal to make real editbox with properties {edit value:yOff, min width:36} 
            make static text with properties {static label:"mm", min width:6} 
          end tell 
        end tell 
      end tell 
    end tell 
  end tell 
  set column4 to make dialog column at aDialog 
  tell column4 
    make static text with properties {static label:" ", min width:4} 
  end tell 
   
  set dlog to show aDialog 
  if dlog is false then 
    destroy aDialog 
    error number -128 
  else 
    set xScale to edit value of xScaleVal 
    set yScale to edit value of yScaleVal 
    set xOff to edit value of xVal 
    set yOff to edit value of yVal 
    destroy aDialog 
  end if 
   
  tell document 1 
    set allImgs to all graphics 
    repeat with i from 1 to count of allImgs 
      tell item i of allImgs 
        set properties to {horizontal scale:xScale, vertical scale:yScale} 
        set {y1, x1, y2, x2} to geometric bounds 
        set geometric bounds to {y1 + yOff, x1 + xOff, y2 + yOff, x2 + xOff} 
      end tell 
    end repeat 
     
    display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
     
  end tell 
end tell