可視ワークシート領域のサイズを点で決定する

Question

表示可能なワークシート領域をポイントで決定しようとしています。これまでのところ、私はApplication.Widthを試しましたが、スクロールバーを含む全領域が表示され、同様にApplication.Heightにはリボンと水平スクロールバーが含まれています。私が特に必要とするのは、この表示可能なワークシート領域のサイズだけです。

私が今まで試したことは、目に見える範囲を見ていることです。例えば、私は、行41の列ABの半分と半分を見ることができれば、私はこれで唯一の問題はあるコード

Debug.Print ws.Range("A1:AA40").Width 
Debug.Print ws.Range("A1:AA40").Height 

を使用することができ、AA40スルーA1を見ることができれば、私は持っていません。フルサイズ。また、アプリケーションウィンドウのサイズを画面の半分に変更すると、調整できません。

ピクセル数に変換する必要はありません。ポイントサイズが必要です。可視領域のサイズを取得する方法を知っている人、または少なくともこの可視領域にのみ合わせるために範囲のサイズを変更する方法は知っていますか？

Answer 1

ApplicationのWindowsコレクションにアクセスして、そのコレクションのアイテムの属性をWidthおよびHeightにすることができます。例えば。

Debug.Print Application.Windows(1).Width 
Debug.Print Application.Windows(1).Height 

またActiveWindowを参照し、同様にそのからプロパティを取得することができます。

例：