excel - Excel スクロール バーの幅を求める

Question

Activewindow.UsableWidth は、垂直スクロール バーの幅を含めた画面の幅を示します。スクロール バーの幅を計算する方法はありますか? 1 つの形状を UsableWidth にし、もう 1 つの形状を実際に見えるものにして測定しました。違いはスクロール バーの幅です。それを自動化して、解像度が高いまたは低いユーザーが使用できるようにする方法があるかどうか疑問に思っています。したがって、スクロールバーは小さくまたは大きくなります。

ありがとうございました！

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 ページを参照してください。)