Position of Cell on Screen
Excel 2000
I am using variations (different chart names) of the following code to size and position a series of imbedded charts (in one worksheet) on screen such that they display exactly on top of each other. This code is attached to a forms command button in another worksheet to execute the code. Works great. Now I need to do a similar thing within a different worksheet, but instead of a chart, I want to use three merged cell ranges: B1:BA1, B33:BA33, and B65:BA65 as the point to be located at, say, Top = 10, Left = 150. I do not want to resize, just have the cell go to 10/150. How this should work: user clicks the button and cell range B33 moves to 10/150, for example. In this B33 example, I would call the macro DisplayB33. Seems the code should be simple and straightforward, but I can’t figure out how to do it. Tried the macro generator to no avail. Can someone help with the code? Sub GoToMetric6() Application.ScreenUpdating = False Sheets("Metrics").Select ActiveWindow.Zoom = 57 Range("A1").Select With ActiveSheet.ChartObjects("Chart 56") ..Height = 660 ..Width = 780 ..Top = 10 ..Left = 150 ..BringToFront End With Application.ScreenUpdating = True End Sub --- Message posted from http://www.ExcelForum.com/ |
Position of Cell on Screen
You have a followup in your other thread.
"pjhageman <" wrote: Excel 2000 I am using variations (different chart names) of the following code to size and position a series of imbedded charts (in one worksheet) on screen such that they display exactly on top of each other. This code is attached to a forms command button in another worksheet to execute the code. Works great. Now I need to do a similar thing within a different worksheet, but instead of a chart, I want to use three merged cell ranges: B1:BA1, B33:BA33, and B65:BA65 as the point to be located at, say, Top = 10, Left = 150. I do not want to resize, just have the cell go to 10/150. How this should work: user clicks the button and cell range B33 moves to 10/150, for example. In this B33 example, I would call the macro DisplayB33. Seems the code should be simple and straightforward, but I can’t figure out how to do it. Tried the macro generator to no avail. Can someone help with the code? Sub GoToMetric6() Application.ScreenUpdating = False Sheets("Metrics").Select ActiveWindow.Zoom = 57 Range("A1").Select With ActiveSheet.ChartObjects("Chart 56") Height = 660 Width = 780 Top = 10 Left = 150 BringToFront End With Application.ScreenUpdating = True End Sub --- Message posted from http://www.ExcelForum.com/ -- Dave Peterson |
All times are GMT +1. The time now is 02:16 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com