Position of Cell on Screen

  • Thread starter Thread starter pjhageman
  • Start date Start date
P

pjhageman

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
 
You have a followup in your other thread.

pjhageman < said:
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
 
Back
Top