excel - 查找 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

（改编自此页面上的信息。有关可用 GetSystemMetrics 参数的更多信息，请参见此MSDN 页面。）