Ответ: Макрос потестить
Твой код у меня вычисляет страницу правильно, но неправильно позиционирует объекты по центру, вот поправленный кусок, лучше было бы, конечно, все с начала переписать, но лень.
Private Sub Cmd1_Click()
Dim x As Double, y As Double, w As Double, h As Double...