ช่วยหน่อยครับ ติดปัญหา กำหนดสี Legend Entry หลังจาก Export File Chart

        'create Chart
        Dim chartPage As Chart
        Dim xlCharts As ChartObjects
        Dim myChart As ChartObject
        Dim chartRange As Range

        xlCharts = CType(wSheet.ChartObjects, ChartObjects)
        myChart = xlCharts.Add(5, 65, 800, 350)
        chartPage = myChart.Chart
        chartRange = wSheet.Range("I4", "K24")
        'chartPage.HasTitle = True
        'chartPage.ChartTitle.Text = "First Outbound"
        'chartPage.ChartTitle.Font.ColorIndex = 3
        chartPage.SetSourceData(Source:=chartRange)
        chartPage.ChartType = XlChartType.xlPie

        chartPage.HasLegend = True