在 Excel VBA 中获取工作表区域的大小

Question

我需要在 Excel VBA 中获取工作表区域的宽度和高度（以像素为单位）。这是显示工作表中单元格的区域。因此，它必须排除所有其他 Excel UI 元素。我尝试使用 GetSystemMetrics 和 SystemParametersInfo 但没有找到解决方案。

Answer 1

也许下面的代码会有所帮助：

MsgBox ("Width in points = " & ActiveWindow.Width & Chr(13) & _ 
"Depth in points = " & ActiveWindow.Height & Chr(13) & _ 
"Width in Pixels = " & ActiveWindow.PointsToScreenPixelsX(ActiveWindow.Width) & Chr(13) & _ 
"Depth in Pixels = " & ActiveWindow.PointsToScreenPixelsY(ActiveWindow.Height)) 

_{最初在这里找到的代码：http://www.ozgrid.com/forum/showthread.php?t=36696 (by Ger Plante)}