I have a workbook of 6 Sheets, what i want is that if i scrolled or zoomed one of the sheets i want all other sheets to be scrolled and zoomed accordingly identically.
to explain more: say I'm on "sheet1" and I scrolled down so i'm seeing range(K225:X250), now if i switched to any of the other sheets i want them all scrolled to the same range. so whatever sheets i choose i want to see range(K225:X250) in the same viewing properties "zooming".
I'm looking for a code to have all the sheets in my workbook scroll together and adjust their zoom level. For example, if I zoom to 70% on Sheet 1 and scroll down to display cell J93 in the bottom left corner, I would like Sheet 2 to also be at 70% and have J93 be at the bottom left corner when I click on it.
Preferably, I would like for the sheets to adjust accordingly only when I click on them and for the macro not to have to loop through each one whenever I change one sheet (my workbook has 52 sheets for weeks of the year, plus summary sheets, so it would be very draining for it to loop through each).
I've already found a macro to have the scroll match across sheets as I adjust and click on them, but I was hoping for a code that would incorporate synchronized zoom into it as well.
I've used various "zoom" searches and can't find what I need. My users have different amounts of toolbars so the amount of screen space changes. I need to zoom so 4 graphs show. Am looking to enable the user with a scroll bar where the user could click / slide the control to change the zoom size on the screen so they can see the 4 graphs at their preferred "zoom".
I would prefer a control on the sheet and link it to a macro (or line of code if that's the proper phrase) and let the user decide (some people will want bigger zoom due to eyesight etc).
Private Sub ScrollBarZoom_Change() ScrollBarZoom.Value = ActiveWindow.zoom.Value End Sub
But I get Runtime error '424': Object required. Auto Merged Post Until 24 Hrs Passes;Nevermind. I found it. Answer was:
Private Sub ScrollBarZoom_Change() ActiveWindow.zoom = ScrollBarZoom.Value End Sub
I am created a very simple account plan for colleagues in my team which is proving to be very poular with the exception of one thing.
I created the plan which is around 30 sheets on my laptops highest resolution setting. 1400 x 1050. Only one other colleague has this res available so of course when the rest of the team open it, it looks huge.
I need help with this as I'm still very new to excel, although learning very fast!
My preference for finding a fix for this would be to insert a scroll bar on each sheet that, when scrolled, changes the zoom of the page between a range of 50% and 100%. This may not be the best way of doing it but I'm trying to make the sheets as simple to use as possible as some of my colleagues are only just compuetr literate, let alone excel competent!
how does one use a single scrollbar control to change the scroll position of two textboxes simultaneously?
The reason why this is required is because the textboxes are both multilines and the data in each is related. So there isn't much point in the user scrolling through textbox1 and then trying to find the same scroll position in textbox2 by changing it's scrollbar.
I've tried changing the Curline property of the textboxes within the scrollbar change event but this is obviously a poor method as it involves changing the focus every time the user scrolls...
I've created a shared spreadsheet with multiple sheets. All the content was created to be visible without having to scroll at 87%. My question is can I protect or lock the zoom level so that when anyone else opens the spreadsheet, it will only be visible at 87%? I have my screen resolution at "Smallest" so not sure if that too will affect the viewing level.
I have a workbook containing about 20 sheets. I need to find a way of pasting all the numbers in the A column in each sheet (sheets 1-20) to the last sheet so I get a great big list of all the numbers in the 20 sheets. How would I go about doing this?
Right now I'm cutting and pasting from sheet 1 to my last sheet, then from sheet 2 to my last sheet, then from sheet 3 to my last sheet... Is there a quicker way? The ranges in each of the sheets start at A2 and go down a few cells. Sheet 4 might have 4 numbers in the A column, sheet 12 might have 47, sheet 17 might have 8 and so on.
How would I go about getting all the A columns in the sheets to the last sheet?
I'll throw up a few screenshots if the problem is unclear
I know you can predefine the level of zoom you want by using the ActiveWindow.Zoom control. I'm trying to find some code to Zoom in by a particular percentage. For example +10% zoom, so if you are currently on 90%, excel zooms to 100%, click again and then get a zoom of 110%.
I am using the toolbox/ properties method to restrict the scroll area in the sheets of my workbook. However, for some sheets when i keep the right hand arrow pressed, the screen will not scroll to the last column. (i.e. the screen display will not move with the selected cell box)
In the menu via TOOLS-->OPTIONS-->VIEW I am trying to remove the scroll bars from just one worksheet but when unticked, this option affects all of the worksheets in my workbook. Is there a way to just nail this selection down to one sheet via properties?
If I send a workbook out with the zoom set at 90...will the zoom be at 90 when others open it.? Also, is there a worksheet event that I could insert to force a specific worksheet to always open with the zoom at 90??
How do i change the default zoom that excel views documents? Whatever view the last person saved the file as it opens in that zoom. I want it to open 75% zoom no matter what anyone saved the files as.
I have a sub that copies worksheet to a different blank sheet in a different work book. Is there a way for me to set the zoom value on the 2nd sheet (the one being copied to) the same as the 1st sheet?
I have just run into the situation where some users, magically and overnight , have widescreen monitors. This means the screen designs for 4:3 monitors show way too much on 16:9 monitors. I would like to put a control button on the opening page that gives them a choice of zoom, which usually seems to be 100% and 135%.
I'm thinking probably an IF sequence to parse their response and execute the appropriate zoom. But how can I make it effective for all the sheets in a workbook?
I could need a code (WS code I assume) that open the sheet in 70% zoom every time I open that sheet. For now I get in 75% every time I open it. I guess that WS code will bypass that default setting, or bug, or what ever resets it 75%.
I am developing a form for emergency dispatching. One of the features of this dispatch sheet is that there are several maps in it that open on a seperate form. The map form has 4 maps that are picture files in an image. these images are in a frame. The different images are selected using option buttons. Given the background above, my problem is this. I have code that zooms in 50% each time the Click event for the image is fired. wht i am trying to do is make the zoomed view center where i clicked. this is the code that i have so far but it doesn't work all that spectacular, the closer I zoom in the further out of center the place i clicked gets untill it is out of view.
Private Sub Layout_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CurrentX = X CurrentY = Y End Sub
Private Sub PlantLayout_Click() If Frame1.Zoom < 400 Then Frame1.Zoom = Frame1.Zoom + 50 frmmap.Frame1.ScrollLeft = CurrentX - (Frame1.Width / 2) frmmap.Frame1.ScrollTop = CurrentY - (Frame1.Height / 2) frmmap.Repaint End Sub
to apply a zoom to Fit Selection on all worksheets upon file opening? I've read many posts on this and understand how to apply this via worksheet activation, but haven't discovered how to make this to happen to all worksheets when the file is opened.
Zooming the selection needs to happen in the workbook module due to additional sheets being added at random and because it will facilitate the flow of the meeting so that we don't have to wait for the user to select and zoom.
Private Sub Workbook_Open()
Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets
Is it possible to do more than one search simultaneously. Let me elaborate. I have a data of 40,000 students in DATA A and searches each student in DATA B which is also around 40,000 students. Instead of doing a For Next Statement, searching one student at a time, is it possible for it to search all the students simulatenosly because searching 40,000 students in a data base of 40,000 students takes FOREVER?
I am struggling to get a macro code for zooming in and out the shapes. I have a macro which fulfill half of my requirement. By assigning the below macro to the shape I am able to increase the current size to double by clicking on the shape however I need the same macro should retain the original size upon second click.
Here is my code to increase the size.
[Code] .....
"The requirement: Once after assigning the macro, on first click it should double the shape size and on second click it should retain the original size."
This "smells" like a simple question, but I've had no luck finding a way to [programmatically] adjust the App.Window to fit around some cells.
I've found "Application.Goto", also the Application.Width/Height setting. The App.Width setting is pixel based, so if there's an easy way to know a cell's pixel-location, that'll work too!
I want to know how to make a spreadsheet automatically control the zoom of a worksheet depending on the size of the screen it is opened on. For example, if it is opened on a screen of a certain size then it will set the zoom to 80% so the worksheet will show only a certain section. I want my worksheets to look the same on even the larger screens and not show the unused rows and columns around the section I am wanting to highlight.
In a previous thread I was told I might need to write an API to help me with achieving this. First of all, what is an API? Secondly, how do I go about writing one?
I have a form that has been set up at 55% for best view. The only problem I have is that all the dropdown boxes (List) that i have the text is extremly small. Is there anyway of changing the size of this text? just the size of the text in the dropdown not in the cell after the selection is made.
I have a worksheet (Covers) that is going to be the front and back covers for a binder.
The title/text portion is automatically filled from cells elsewhere in the workbook.
I have a button to bring up a userform that allows one to select the images (3 .jpg images) you wish to use on the cover pages.
I have code that successfully brings up the userform, and allows image selection and preview within the userform.
Now I want to insert these selected images into the worksheet, centered on specified cells and sized (zoom) to a maximum width/height (whichever is reached first).
Can a blank Picture be inserted with its size specified/fixed, then use code (Image1 = LoadPicture?) to change what is displayed?
Or do I have to calculate the size, center it on the page, and insert the image each time?
The code (in part) for the UserForm looks like:
Private Sub SelFcvrImg_Click()
Dim FCpicName As Variant ChDir ("S:DanBuilder Logos-Photos") FCpicName = Application. GetOpenFilename(Title:="Select an Image!", _ fileFilter:="Pictures (*.bmp;*.gif;*.tif;*.jpg),*bmp;*gif;*.tif;*.jpg") If FCpicName <> False Then InsertImgForm.FCoverImgPrvw.Picture = LoadPicture(FCpicName)
End Sub
The UserForm has an Image (preview) with PictureSizeMode set to zoom.
I'm really after the same thing embedded in the sheet...
In a previous, expired thread, the following code was suggested as a way to capture the page-setup zoom value after setting PagesTall and PagesWide. It works fine when single-stepping in the VB Editor and when run directly by the user, via a button click or Tools=>Macros...=>Run, but fails when run under a Worksheet_Activate() event call.
Does anyone understand why that is and/or have a fix or workaround?
Sub X() ' Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{1,#N/A})" Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})" MsgBox "Zoom factor is " & ActiveSheet.PageSetup.Zoom
I have approx. 50 Defined Name and which were divided into 2 parts, i.e "name.2012" & "name.2013" means each files had ".2012" or ".2013" but the issue is I want to change or replace ".2012" or ".2013" with any other name or number in simultaneously. Just like inside excel sheets, Find and Replace method.
