2024年3月9日发(作者：留晓骞)

如果需要将工作表中嵌入的图表显示在独立的窗口中，可以使用下面的代码。

1. Sub ChartShow()

2. With bjects(1)

3. .Activate

4. .ndow = True

5. End With

6. With ActiveWindow

7. .Top = 50

8. .Left = 50

9. .Width = 400

10. .Height = 280

11. .Caption =

12. End With

13. End Sub

代码解析：

ChartShow过程，将工作表中嵌入的图表显示在独立的窗口中。

第2行到第5行代码将工作表中指定图表的ShowWindow属性设置为True，使用独立的窗口显示该图表。

第7、8行代码指定活动窗口显示的位置。

第9、10行代码调整活动窗口的大小使之适应图表的大小。

第11行代码指定活动窗口标题栏中显示的标题。

运行ChartShow过程结果如图1所示。

图 1 使用独立窗口显示图表

2024年3月9日发(作者：留晓骞)

如果需要将工作表中嵌入的图表显示在独立的窗口中，可以使用下面的代码。

1. Sub ChartShow()

2. With bjects(1)

3. .Activate

4. .ndow = True

5. End With

6. With ActiveWindow

7. .Top = 50

8. .Left = 50

9. .Width = 400

10. .Height = 280

11. .Caption =

12. End With

13. End Sub

代码解析：

ChartShow过程，将工作表中嵌入的图表显示在独立的窗口中。

第2行到第5行代码将工作表中指定图表的ShowWindow属性设置为True，使用独立的窗口显示该图表。

第7、8行代码指定活动窗口显示的位置。

第9、10行代码调整活动窗口的大小使之适应图表的大小。

第11行代码指定活动窗口标题栏中显示的标题。

运行ChartShow过程结果如图1所示。

图 1 使用独立窗口显示图表