Excel 2003缩放
Excel 2003缩放
提问于 2016-02-24 19:41:57
我在处理Excel文档时遇到问题。我需要设置一个特定的缩放来显示我工作表的全部内容。麻烦的是，我必须在不同的计算机上以不同的分辨率分发这份文档。然后，我不能使用特定的缩放值，这个值必须是动态的。
我试过这个：
With ActiveSheet.PageSetup
.FitToPagesTall = 1
.FitToPagesWide = 1
.Zoom = False
End With但这不起作用，至少在Excel2003中是这样。
我也试过用ActiveWindow.Zoom，但我想用这个库我不能适应页面的缩放。
这里有我的问题: 1.我如何适应页面内容的缩放? 2.有没有在没有VB的情况下进行缩放的选项？
我的主要问题是: 1.以不同的分辨率显示文档。2.在不同的Excel版本中打开文档(2003、2007或2013)。
谢谢!
Stack Overflow用户
发布于 2016-02-24 20:10:09
如果选择一个范围，然后将缩放设置为True，它将适合所选内容，因此：
Sub FitIt()
Dim rgToFit As Range
Dim rgCurrent As Range
Application.ScreenUpdating = False
Set rgCurrent = ActiveCell
' CHANGE THIS TO WHATEVER RANGE YOU WANT
Set rgToFit = ActiveSheet.UsedRange
rgToFit.Select
ActiveWindow.Zoom = True
rgCurrent.Select
Application.ScreenUpdating = True
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/35601223
复制相关文章
相似问题
腾讯云开发者
