Найти ширину полосы прокрутки Excel

Question

Activewindow.UsableWidth дает мне ширину экрана с включенной шириной полосы вертикальной полосы прокрутки. Есть ли способ рассчитать ширину полосы прокрутки? Я измерил его, имея одну форму: UsableWidth, а другая форма - то, что я действительно вижу, и разница в ширине полосы прокрутки. Мне интересно, есть ли способ автоматизировать его, чтобы он мог использоваться пользователем с более высоким или более низким разрешением и, следовательно, с меньшей или большей полосой прокрутки.

Спасибо!

Answer 1

Если вы ищете, чтобы найти значение для вертикальной ширины полосы прокрутки, вы можете использовать Windows API вызова:.

Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long 

Public Const SM_CXVSCROLL = 2 

______________________________________ 

Sub ShowVScrollWidth() 

    Dim lVScrollWidth As Long 

    lVScrollWidth = GetSystemMetrics32(SM_CXVSCROLL) 

    Debug.Print lVScrollWidth 

End Sub 

(адаптировано из информации о this page Подробнее о доступных GetSystemMetrics параметры могут быть найдено на this MSDN page.)