图表作完如何切断与数据源的关系？？

69wq

图表作完如何切断与数据源的关系？？最好能告诉程序代码

snood

ActiveChart.SeriesCollection(1).Formula = "=SERIES(,,{8,2,3},1)"

就把数据一个一个放入SERIES()

69wq

方法可行.但是太麻烦,如果有100个数据,我要一个个地写入.而且我的源数据是一个动态的,不同的情况每次的源数据不同

有没有更好的方法?

谢了

69wq

有个朋友刚才在另外的地方给我回了贴,试用后不错,贴上来供大家学习

'把图表的各序列转换为值。

先选中图表，再执行程序。

Sub CutChartConnection()
'作完图表后切断与数据源的联系
On Error Resume Next
    Dim Sries As Series
        For Each Sries In ActiveChart.SeriesCollection
            With Sries '分别对应源数据设置对话框中的相应选项
                .Name = .Name '名称
                .Values = .Values '值
                .XValues = .XValues '分类(X)轴标志
            End With
        Next Sries
End Sub