以下程序为什么不能在新窗口独立显示图表

jvey

Sub Macro1()
   Dim ch As ChartObject
   Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
   ch.Chart.ChartWizard Source:=Worksheets("sheet1").Range("a1:a20"), gallery:=xlLine, Title:="New Chart"
   Call ChartShow
End Sub
以上程序是生成

Sub ChartShow()
With Sheet1.ChartObjects(1)
    .Activate
    .Chart.ShowWindow = True
     End With
With ActiveWindow
    .Top = 50
    .Left = 50
    .Width = 400
    .Height = 280
    .Caption = ThisWorkbook.Name
     End With
End Sub
所示。 9-1过程结果如图ChartShow运行 行代码指定活动窗口标题栏中显示的标题。11第 行代码调整活动窗口的大小使之适应图表的大小。10、9第 行代码指定活动窗口显示的位置。8、7第 ，使用独立的窗口显示该图表。True属性设置为ShowWindow行代码将工作表中指定图表的5行到第2第 过程，将工作表中嵌入的图表显示在独立的窗口中。 ChartShow代码解析：

wangg913

抽空上个附件。