【技巧】Access操控Excel中图表对象的经验之一

tmtony

帮林岚处理一个Excel图表对象时，使用如下代码时：
    Dim xlChart As ChartObject

    Set xlChart = ActiveSheet.ChartObjects(1)
    MsgBox xlChart.Name

    xlChart.Activate
    xlChart.PlotArea.Select
    xlChart.SetSourceData Source:=Range("A13:C18")

总是提示 不支持该属性和方法
后来来发现原来要对图表里的属性进行控件，需要
使用xlChart.Chart, 即在xlChart后面加上 .Chart 即可 ，代码改为：



    Dim xlChart As ChartObject

    Set xlChart = ActiveSheet.ChartObjects(1)
    MsgBox xlChart.Name

    xlChart.Activate
    xlChart.Chart.PlotArea.Select
    xlChart.Chart.SetSourceData Source:=Range("A13:C18")


虽然是个小细节，但有时不注意，也会浪费一些时间。所以记录一下，或许对有同样问题的网友有些帮助

另通过对xlChart.Chart的相关属性，可对图表进行完全的控制，可定制图表的外观和数据 ，以及所有细节。非常强大。

p51219

好好好呵呵呵呵呵