如何关闭EXCEL生成的曲线啊?多谢大家的指点啊？

jsmmp

诸位大侠好，我是菜鸟啊，急求大家帮助：

我借助已经生成的EXCEL表格中的数据绘制若干曲线图，下面是我以第3和第9列数据绘制了一副曲线图，代码如下，调试成功的。 Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("F6") ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R2C3:R65500C3" ActiveChart.SeriesCollection(1).Values = "=Sheet1!R2C9:R65500C9" ActiveChart.SeriesCollection(1).Name = "=""Figure08""" 'Figure08 ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" ActiveChart.Legend.Select Selection.Delete With ActiveChart .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Speed [km/h]" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Average Acceleration [m/s/s]" End With With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True .HasMinorGridlines = False End With ActiveChart.PlotArea.Select With Selection.Border .ColorIndex = 16 .Weight = xlThin .LineStyle = xlContinuous End With With Selection.Interior .ColorIndex = 2 .PatternColorIndex = 1 .Pattern = xlSolid End With ActiveChart.ChartArea.Select

然后，我设置了关闭按钮，想关闭这副图形，于是写了如下代码：

ActiveSheet.ChartObjects("图表 8").Activate ActiveChart.ChartArea.Select ActiveWindow.Visible = False Selection.Delete

结果程序总是报告出错啊：

实时错误‘1004’： 不能取得类 worksheet 的 chartobject 属性

以前好像运行是可以的啊，这到底是什么原因啊？如何解决啊？非常感谢高手的指点！！！！

snood

ChartObjects("图表 8")

生成一次图表，("图表 8")+1

应用：ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.count).Activate

jsmmp

非常感谢好心斑竹的热情帮忙。

我帖子上只是以一个图形的打开和关闭作为例子，而我实际程序中有很多图形的。我怎么实现退出关闭EXCEL表以前，将生成的所有图形全部关闭啊？

以前运行似正常的，为什么时间久了，久不正常了，经常报错啊。报错信息如贴子1上所述。

您给的指导，我没有完全看明白，希望得到您的再次指导！count 具体怎么用啊？

snood

for i=1 to ActiveSheet.ChartObjects.count

ActiveSheet.ChartObjects(i).delete

next i

jsmmp

非常感谢斑竹的指点，可好像还是不奏效啊！出现同样的报错信息！！

菜鸟愚笨，还望能再多加点拨！非常谢谢！

snood

以下代码 放在你的 Charts.Add之前

For i = 1 To ActiveSheet.ChartObjects.Count - 1 ActiveSheet.ChartObjects(i).Delete Next i ActiveSheet.ChartObjects(1).Delete

[此贴子已经被作者于2005-9-27 12:12:01编辑过]

jsmmp

非常感谢斑竹！

如果按照您所说的添加代码的话，岂不是图形绘制的同时就又把图形给删除了？就无法观察图形结果了啊。我执行了你给的代码。

我是希望在所有曲线绘制完成以后，由用户点击一个结束命令（比如在VB界面上设置了 结束 按钮），进行所有曲线图形的统一删除啊。

真是麻烦你了，可以给你发MAIL吗？我的QQ 38207821 MSN jsmmp@hotmail.com

jsmmp

我的关闭命令按钮的程序代码如下：结果总是报错：

实时错误‘1004’： 不能取得类 worksheet 的 chartobject 属性 郁闷啊！！！

Private Sub Command5_Click() '关闭所有图形 并关闭EXCEL表

For i = 1 To ActiveSheet.ChartObjects.Count ActiveSheet.ChartObjects(i).Delete Next i ActiveWorkbook.Save

xlBook.Close (True) '关闭EXCEL工作簿 xlApp.Quit '关闭EXCEL 退出 Excel

Set xlApp = Nothing '释放EXCEL对象 清除对象 End Sub

还请斑竹指教啊！多谢了多谢了 ！

snood

Dim ch As ChartObject For Each ch In ActiveSheet.ChartObjects ch.Delete Next