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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

05 ธ.ค. 66 , 13:19:32
อ่าน 469 ครั้ง

uoizacademy zaa

  • สมาชิกไท.Access
  • กระทู้: 1

    • ดูรายละเอียด

เรียนอาจารย์ ทุกท่าน
จากโค้ดตัวอย่างด้านล่างเป็นการสร้างกราฟ ด้วย 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


 

05 มี.ค. 67 , 01:14:08
ตอบกลับ #1

bentbrain

  • สมาชิกไท.Access
  • กระทู้: 3

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

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

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5