Получить размер диапазона в сантиметрах

[Саня_Д]

Здравствуйте.
Подскажите, пожалуйста, как программно получить размер выделенного диапазона в сантиметрах (ExcelXP)?

[EducatedFool]

Про единицы измерения в Excel можно почитать здесь и здесь

1 пункт = 1/72 дюйма = 1.33 пикселя = 0.35 мм
1 пиксель = 0.75 пункта = 0.24мм
1 мм = 2.85 пунктов = 3.8 пикселей

Об особенностях измерений - здесь

В результате получается что-то вроде этого:

Function Ширина(Optional ByRef ra As Range) As Double
    If ra Is Nothing Then Set ra = Selection
    Ширина = (ra.Cells(ra.Cells.Count).Left - ra.Cells(1).Left + ra.Cells(ra.Cells.Count).Width) / 28.5
End Function

Function Высота(Optional ByRef ra As Range) As Double
    If ra Is Nothing Then Set ra = Selection
    Высота = (ra.Cells(ra.Cells.Count).Top - ra.Cells(1).Top + ra.Cells(ra.Cells.Count).Height) / 28.5
End Function

Sub test()
    Debug.Print Ширина(Selection), Высота(Selection)
End Sub

Пример:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.CalculateFull
End Sub

  Ячейка: B3      Формула  (стиль A1):   =ширина()
                  Формула  (стиль R1C1): =ширина()

  Ячейка: B4      Формула  (стиль A1):   =высота()
                  Формула  (стиль R1C1): =высота()

[Саня_Д]

Огромное спасибо за ответ.