100 300 600 1000 1300
数値は一例ですが、上のような複数の数値を 下限である 100 を維持し、
かつ上限を 800 として圧縮するにはどのような処理をすればいいでしょうか？

各数値に 800/1300=0.61.... を掛ければ 800 を上限とした圧縮はできますが、
その場合、下限の 100 を維持することができない問題や、
100 とその次の数値との比率と全体の比率が合わなくなる問題が起こり、
100 の次が 300 ではなく 110 など 100 に近い数値の場合は
110*0.61=67.6 と、下限よりも小さくなってしまいます

必ずしもVBとは関係のない処理の質問ですが、
現在VB(2008 Express)で作成しているアプリで必要な処理なので
こちらで質問させていただきました。
よろしくお願いします。