VBA, Point to Pixel

[Avtopic]

Здравствуйте!

По форуму искал, но ничего не нашел.

ожидал, что если получу координаты окна
GetWindowRect hForm, FormRC
то при помощи маленькой арифметики смогу получить коэффициент PoinToPixel

Код: Выделить всё

KHoriz  = (FormRC.Right - FormRC.Left) / Me.Width
KVert  = (FormRC.Bottom - FormRC.Top) / Me.Height

Что-то близкое получаю, но не то. Если поможете, буду очень благодарен

[Genyaa]

А методы PointsToScreenPixelsY и PointsToScreenPixelsX ничем не смогут помочь?

Следующий пример из хелпа говорит, что определяет ширину и высоту (в пискелях) выделенной области ячеек.

Код: Выделить всё

With ActiveWindow
    lWinWidth = _
        .PointsToScreenPixelsX(.Selection.Width)
    lWinHeight = _
        .PointsToScreenPixelsY(.Selection.Height)
End With