การสร้างกราฟ ในฟอร์ม ms access ด้วย vba กรณีต้องการเพิ่ม Data Labels บนกราฟแท่ง

[uoizacademy zaa]

เรียนอาจารย์ ทุกท่าน
จากโค้ดตัวอย่างด้านล่างเป็นการสร้างกราฟ ด้วย vba ซึ่งสามารถใช้งานได้ปกติ
แต่ผมต้องการเพิ่มการแสดง Data Labels ในกราฟแท่ง
ผมรบกวนอาจารย์ แนะนำด้วยนะครับ

ตัวอย่างโค้ด

Private Sub CreateChart()

    Dim strSQL As String
   
    strSQL = "SELECT * FROM qryDailyChart"
    Me.DailyChart.RowSource = strSQL

    With Me.DailyChart
        .HasTitle = False
        .CategoryAxisTitle = "Daily Chart"
        .ChartValues = "SupplyQty"
        .ChartAxis = "dayOfMonth"
        .ChartType = acChartColumnClustered
        .PrimaryValuesAxisRange = acAxisRangeAuto
        .PrimaryValuesAxisMaximum = 400
        .HasLegend = False
        .CategoryAxisFontSize = 14
        .CategoryAxisFontColor = RGB(0, 176, 80)
        .PrimaryValuesAxisFontSize = 12
        .ChartSubtitle = True
        .ChartSubtitleFontSize = 50
 
    End With

End Sub

[bentbrain]

look at .datalables
Private Sub CreateChart()

    Dim strSQL As String
    Dim chtObj As Object
    Dim serObj As Object
   
    strSQL = "SELECT * FROM qryDailyChart"
    Me.DailyChart.RowSource = strSQL

    Set chtObj = Me.DailyChart.Object

    With chtObj
        .HasTitle = False
        .CategoryAxisTitle = "Daily Chart"
        .ChartValues = "SupplyQty"
        .ChartAxis = "dayOfMonth"
        .ChartType = acChartColumnClustered
        .PrimaryValuesAxisRange = acAxisRangeAuto
        .PrimaryValuesAxisMaximum = 400
        .HasLegend = False
        .CategoryAxisFontSize = 14
        .CategoryAxisFontColor = RGB(0, 176, 80)
        .PrimaryValuesAxisFontSize = 12
        .ChartSubtitle = True
        .ChartSubtitleFontSize = 50

        ' Loop through each series and add data labels
        For Each serObj In .SeriesCollection
            serObj.DataLabels.ShowValue = True
        Next serObj
    End With

End Sub