// applies a scale bar to images taken with the microscope at current camera settings. 
run("Set Scale...", "distance=746.04 known=1000 pixel=1 unit=um global");
ids=newArray(nImages);
for (i=0;i<nImages;i++) {
        selectImage(i+1);
title = getTitle();
run("Scale Bar...", "width=400 height=8 font=50 color=Yellow background=Black location=[Lower Right] bold");
saveAs("Tiff", "C:\\test\\40x\\"+title);
close(); 
wait(500);
}