Код не мой, подправил числа, вставил несколько подсказанных здесь строчек.
Делал для знакомого, для наружки, объекты у него большие, ориентировался на 300*70см, на мелких объектах смотрится плохо.
Sub razmery()
Dim x As Double, y As Double, sx As Double, sy As Double
Dim pt1 As...