Using CRChart in Visual Basic

CRChart macros can be used in Chart Expert that comes with Crystal Reports. These fields can also be accessed programmatically via the ChartObject class. The following example code shows how CRChart macros can be used to change chart properties at runtime.

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