Подскажите как это написать на VBA

Делаю так

21,0 ширина листа
29,7 высота


x := 21,0 - RightMargin /CentimetersToPoints(1);
y := 29,7 - BottomMargin / CentimetersToPoints(1);


Потом перевожу все обратно в поинты
и перемещаю туда картинку!

только вот не попадаю на угол листа

Если вот так писать и принять что ширина = 19 см то все ОК!!!
Почему не пойму

Sub Ìàêðîñ1()

Dim vX As Double
Dim vY As Double


vX = 19 - (ActiveSheet.PageSetup.RightMargin + ActiveSheet.PageSetup.LeftMargin) / Application.CentimetersToPoints(1)
vY = 29.7 - (ActiveSheet.PageSetup.BottomMargin + ActiveSheet.PageSetup.TopMargin) / Application.CentimetersToPoints(1)


Selection.ShapeRange.Left = Application.CentimetersToPoints(vX)
Selection.ShapeRange.Top = Application.CentimetersToPoints(vY)

End Sub