Zoom to a chart

[eawachte]

I am trying to make a "plotter" that will zoom to a selected chart with a macro button. I have tried a couple things but nothing seems to work. I can select the chart but not zoom to show the chart.

What line of code will actually zoom to the chart once i have selected it?

Thanks!

 

[JoeMo]

I am trying to make a "plotter" that will zoom to a selected chart with a macro button. I have tried a couple things but nothing seems to work. I can select the chart but not zoom to show the chart.

What line of code will actually zoom to the chart once i have selected it?

Thanks!

Try this:

Sub ZoomToChart()
Dim cht As ChartObject
Set cht = ActiveSheet.ChartObjects("Chart 1") 'Change name to suit
cht.Select
ActiveWindow.ScrollColumn = cht.TopLeftCell.Column
ActiveWindow.ScrollRow = cht.TopLeftCell.Row
ActiveWindow.Zoom = 125
End Sub

 

[pgc01]

Hi

This is an example of how to zoom to a chart:

Sub ZoomToChart()
 
Application.Goto ActiveSheet.ChartObjects("Chart 1").TopLeftCell, True
End Sub