Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Position screen at end of macro | Excel Discussion (Misc queries) | |||
Can I fix the position of an object on the screen? | Excel Discussion (Misc queries) | |||
screen position indication? | Excel Discussion (Misc queries) | |||
Screen position after hyperlinking | Excel Discussion (Misc queries) | |||
Move Cell to Top/Left Position on Screen | Excel Programming |