Devi usare

ScaleX(W, vbTwips, vbPixels)

ScaleX(W, vbPixels, vbTwips)

in cui W e' la dimensione orizzontale considerata