Tag: 放大

使用Excel VBA修改另一个工作簿中的.zoom属性

我正在编写一个复杂的VBA应用程序，它从一个工作簿导入数据，在导入数据时对其进行转换。 作为此导入过程的一部分，将执行计算以获取某个单元格的.text值（并且不能将其更改为.value），但这意味着如果源工作簿被缩小，则会导入#### ####值，就像显示的那样。 我正在尝试修改源工作簿的activesheet中的.zoom设置为100％缩放。 下面是使用的代码示例。 Dim SourcePath as String Dim SourceWorkbook as Object FilePath = Application.GetOpenFilename 'Opens dialogue for user to select source If FilePath <> "" Then 'Checks that the filepath is completed SourcePath = FilePath 'Stores the filepath for source End If Set SourceWorkbook = Workbooks.Open(SourcePath) SourceWorkbook.ActiveWorksheet.Zoom = 100 我得到一个运行时错误91：对象variables或块variables未设置错误，所以我假设这里的逻辑是穷人。 任何人都可以提出一个做这个工作的方法吗？ 感谢预期。

Excel 2003缩放

我有一个Excel文档的麻烦。 我需要设置一个特定的缩放来显示我的工作表的全部内容。 麻烦的是，我必须在不同的分辨率的计算机上分发这个文件。 然后，我不能使用特定的缩放值，这个值必须是dynamic的。 我试过这个： With ActiveSheet.PageSetup .FitToPagesTall = 1 .FitToPagesWide = 1 .Zoom = False End With 但是这至less在Excel 2003中是行不通的。 我也尝试过使用ActiveWindow.Zoom，但是我认为在这个库中，我将无法将缩放放到页面上。 有我的问题：1.我怎样才能适应页面内容的缩放？ 2.有没有一个选项，没有VB？ 我的主要问题是：1.以不同的分辨率显示文档。 2.在不同的Excel版本（2003年，2007年和2013年）中打开文档。 谢谢！

Excel VBA：获取与FitToPageWide对应的缩放级别

我试图在Excel中build立一个循环遍历所有工作表的macros，并且基于最大的工作表，为所有工作表设置缩放级别，使它们都适合一个页面，但是具有相同的缩放比例（这是需要的打印）。 然而，我确定缩放级别，确保最大的页面适合1页宽度的麻烦。 当通过使用.PageSetup.FitToPagesWide = 1将工作表宽度设置为适合一个页面时， .PageSetup.Zoom属性会自动设置为FALSE。 将FitToPage属性重新设置为false，缩放级别与assembly到一个页面之前的缩放级别相同。 当手动设置表格使其适合一页宽时，Excel会显示与此相对应的缩放级别，但似乎无法在VBA中读取该表格。 有人可以帮我解决这个问题吗？