Hello

to fix my problem I am having opening my workbok on other people's computers
I am using the code:

Private Sub Worksheet_Activate()

Range("A1:R1").Select
ActiveWindow.Zoom = True
Range("A1").Select

End Sub

This does not work for Chart sheets because I cannot figure out the object
that should go with .Zoom on the chart sheet.

Can anyone help or do you have any ideas about aooming so the whole chart is
visible on any resolution.

David

Selecting the chart sheet and then doing

ActiveChart.Select
ActiveWindow.Zoom = True

worked for me.


--
Regards,
Tom Ogilvy

"David" wrote:

> Hello
>
> to fix my problem I am having opening my workbok on other people's computers
> I am using the code:
>
> Private Sub Worksheet_Activate()
>
> Range("A1:R1").Select
> ActiveWindow.Zoom = True
> Range("A1").Select
>
> End Sub
>
> This does not work for Chart sheets because I cannot figure out the object
> that should go with .Zoom on the chart sheet.
>
> Can anyone help or do you have any ideas about aooming so the whole chart is
> visible on any resolution.
>
> David

Hi Tom

That code works if I assign it to a button.
It will not work under: Private Sub Chart_Activate()

Is there a way I can run this as the chart sheet opens?

David

"Tom Ogilvy" wrote:

>
> Selecting the chart sheet and then doing
>
> ActiveChart.Select
> ActiveWindow.Zoom = True
>
> worked for me.
>
>
> --
> Regards,
> Tom Ogilvy
>
> "David" wrote:
>
> > Hello
> >
> > to fix my problem I am having opening my workbok on other people's computers
> > I am using the code:
> >
> > Private Sub Worksheet_Activate()
> >
> > Range("A1:R1").Select
> > ActiveWindow.Zoom = True
> > Range("A1").Select
> >
> > End Sub
> >
> > This does not work for Chart sheets because I cannot figure out the object
> > that should go with .Zoom on the chart sheet.
> >
> > Can anyone help or do you have any ideas about aooming so the whole chart is
> > visible on any resolution.
> >
> > David