| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting zoom of 2 sheets equal
Hello, I'm trying to set the zoom value of one sheet ("Sheet2") in a workbook equal to the zoom value of another sheet ("Sheet1") each time Sheet1 is activated. I've tried the code below, but z is equal to 60 when Sheet1's zoom is 80%, and it doesn't change Sheet2's zoom value. What am I doing wrong? Thanks! Dim z As Integer z = Worksheets("Sheet1").PageSetup.Zoom Worksheets("Sheet2").PageSetup.Zoom = z -- jbl25 ------------------------------------------------------------------------ jbl25's Profile: http://www.excelforum.com/member.php...fo&userid=7225 View this thread: http://www.excelforum.com/showthread...hreadid=382790 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Setting zoom of 2 sheets equal
Pagesetup is for printing
worksheets("Sheet1").Activate z = Activewindow.Zoom Worksheets("Sheet2").Activate ActiveWindow.Zoom = z -- Regards, Tom Ogilvy "jbl25" wrote in message ... Hello, I'm trying to set the zoom value of one sheet ("Sheet2") in a workbook equal to the zoom value of another sheet ("Sheet1") each time Sheet1 is activated. I've tried the code below, but z is equal to 60 when Sheet1's zoom is 80%, and it doesn't change Sheet2's zoom value. What am I doing wrong? Thanks! Dim z As Integer z = Worksheets("Sheet1").PageSetup.Zoom Worksheets("Sheet2").PageSetup.Zoom = z -- jbl25 ------------------------------------------------------------------------ jbl25's Profile: http://www.excelforum.com/member.php...fo&userid=7225 View this thread: http://www.excelforum.com/showthread...hreadid=382790 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Setting zoom of 2 sheets equal
Do you actually want to change the print zoom, or the view zoom? To change the view zoom:
Dim z As Integer Worksheets("Sheet1").Activate z = ActiveWindow.Zoom Worksheets("Sheet2").Activate ActiveWindow.Zoom = z HTH, Bernie MS Excel MVP "jbl25" wrote in message ... Hello, I'm trying to set the zoom value of one sheet ("Sheet2") in a workbook equal to the zoom value of another sheet ("Sheet1") each time Sheet1 is activated. I've tried the code below, but z is equal to 60 when Sheet1's zoom is 80%, and it doesn't change Sheet2's zoom value. What am I doing wrong? Thanks! Dim z As Integer z = Worksheets("Sheet1").PageSetup.Zoom Worksheets("Sheet2").PageSetup.Zoom = z -- jbl25 ------------------------------------------------------------------------ jbl25's Profile: http://www.excelforum.com/member.php...fo&userid=7225 View this thread: http://www.excelforum.com/showthread...hreadid=382790 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Setting the zoom size of a new window from 100% to 75% | Excel Discussion (Misc queries) | |||
| Setting Default Zoom | Excel Discussion (Misc queries) | |||
| setting of screen zoom in excel | Excel Discussion (Misc queries) | |||
| Value of Zoom print setting | Excel Programming | |||
| Setting zoom for all worksheet pages | Excel Programming | |||
![jbl25[_5_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
