【技巧】Access操控Excel中圖表對象的經(jīng)驗之一

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")

總是提示 不支持該屬性和方法
后來來發(fā)現(xiàn)原來要對圖表里的屬性進(jìn)行控件，需要
使用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")


雖然是個小細(xì)節(jié)，但有時不注意，也會浪費一些時間。所以記錄一下，或許對有同樣問題的網(wǎng)友有些幫助

另通過對xlChart.Chart的相關(guān)屬性，可對圖表進(jìn)行完全的控制，可定制圖表的外觀和數(shù)據(jù) ，以及所有細(xì)節(jié)。非常強大。

p51219

好好好呵呵呵呵呵