ShowWindow problem
 

Hi

I use an embedded chart in a worksheet to display some revenue data. Below
the chart is a large table with data which the user can filter. After the
filter is set I want the user to be able to temporarily see the chart in a
full screen mode. I use the following code:

Sub DisplayChartInLargeWindow()
ActiveSheet.ChartObjects(1).Activate

With ActiveChart
.ChartArea.Select
.ShowWindow = True
End With

ActiveWindow.Caption = "Revenue"
End Sub

The only problem is that the window which dispays the chart has the exact
same size as the embedded chart. Any attempts to resize the window using
code have failed.

For instance "ActiveWindow.WindowState = xlMaximized" will have no effect on
the window displaying the chart.

What am I doing wrong?
Pete