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

tmtony

幫林嵐處理一個(gè)Excel圖表對(duì)象時(shí)，使用如下代碼時(shí)：
    Dim xlChart As ChartObject

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

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

總是提示 不支持該屬性和方法
后來(lái)來(lái)發(fā)現(xiàn)原來(lái)要對(duì)圖表里的屬性進(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")


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

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

p51219

好好好呵呵呵呵呵