在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（由Ger Plante提供）}