  Dim crGraphObj As CRAXDRT.GraphObject
    
    Set crGraphObj = crChart.OpenSubreport.Sections(1).ReportObjects.Item(1)
    crGraphObj.FootNote = "@BP @SZ 35 "
    ....
    crGraphObj.FootNote = crGraphObj.FootNote & "@MS " & CStr(iRow - Fractile135) & " " & CStr(iMarkerNumInSSCSDK80) & " "
    ....
    'Set marker color in chart
    crGraphObj.GroupsTitle = crGraphObj.GroupsTitle & "@MC " & CStr(iRow - Fractile135) & " " & CStr(r) & " " & CStr(G) & " " & CStr(B) & " "
    ....
    'Control the Y1 axis scale on all plot areas
    'Get Y Max and Y Min
    GetCommonYMaxMin mvPlotYMaxMin, dYMax, dYMin
    ScaleYMaxYMin dYMax, dYMin, strYMax, strYMin, iYDivision
    ....
    crGraphObj.FootNote = crGraphObj.FootNote & "@SC " & strYMin & ", " & strYMax & " " & "@MK " & CStr(UBound(vReportData_Table_Marker, 1) - Fractile135)
    crGraphObj.DataAxisDivisionMethod = crManualDivision
    crGraphObj.DataAxisDivisionNumber = iYDivision
