[求助]：请教关于vba里的zoom

evaporated

我有个程序，需要在里面多次执行ZOOM。

请教各位，在程序执行完毕后，如何最终ZOOM到原来的大小？

这样子用户看起来会比较容易接受。

换句话说，就是在多次连续的ZOOM之后，如何回到之前的某个状态？

ZoomPrevious 肯定不行的。它只能回复到上一个。

我的设想是：如果在这段程序执行以前能保存当前屏幕的两角点。

最后可以用 ZoomWindow 回去。

还有个想法，就是每次程序中Zoom，都接着调用

ZoomPrevious 。这样子屏幕就太闪烁了。


不知道大家有什么好办法？

efan2000

2. 
   
3.   [FONT=courier new]
   
4. Sub Test()
   
5.     ' 中心点坐标
   
6.     Dim cPt As Variant
   
7.     cPt = ThisDrawing.GetVariable("VIEWCTR")
   
8.     ' 高度
   
9.     Dim h As Double
   
10.     h = ThisDrawing.GetVariable("VIEWSIZE")
    
11.     ' 宽高比
    
12.     Dim v As Variant
    
13.     v = ThisDrawing.GetVariable("SCREENSIZE")
    
14.     ' 宽度
    
15.     Dim w As Double
    
16.     w = h / v(1) * v(0)
    
17.     ' 左下角坐标
    
18.     Dim minPt(0 To 2) As Double
    
19.     minPt(0) = cPt(0) - w / 2
    
20.     minPt(1) = cPt(1) - h / 2
    
21.     ' 右上角坐标
    
22.     Dim maxPt(0 To 2) As Double
    
23.     maxPt(0) = cPt(0) + w / 2
    
24.     maxPt(1) = cPt(1) + h / 2
    
25.     ' 缩放
    
26.     Application.ZoomWindow minPt, maxPt
    
27. End Sub
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Test()<br />     ' 中心点坐标<br />     Dim cPt As Variant<br />     cPt = ThisDrawing.GetVariable("VIEWCTR")<br />     ' 高度<br />     Dim h As Double<br />     h = ThisDrawing.GetVariable("VIEWSIZE")<br />     ' 宽高比<br />     Dim v As Variant<br />     v = ThisDrawing.GetVariable("SCREENSIZE")<br />     ' 宽度<br />     Dim w As Double<br />     w = h / v(1) * v(0)<br />     ' 左下角坐标<br />     Dim minPt(0 To 2) As Double<br />     minPt(0) = cPt(0) - w / 2<br />     minPt(1) = cPt(1) - h / 2<br />     ' 右上角坐标<br />     Dim maxPt(0 To 2) As Double<br />     maxPt(0) = cPt(0) + w / 2<br />     maxPt(1) = cPt(1) + h / 2<br />     ' 缩放<br />     Application.ZoomWindow minPt, maxPt<br /> End Sub<br />   [/FONT]<br />