Public Function CreateChart(ReportName As String, ChartObjectName As String)
Dim Rpt As Report
'Dim grphChart As Object
Dim grphChart As Graph.Chart
Dim msg As String, lngType As Long, cr As String
Dim ctype As String, typ As Integer, j As Integer
Dim recSource As String
Dim colmCount As Integer, chartType(1 To 6) As String
Dim lngTwisp As Long
lngTwisp = 567 'cm
DoCmd.OpenReport ReportName, acViewDesign
Set Rpt = Reports(ReportName)
Set grphChart = Rpt(ChartObjectName).Object
grphChart.Activate
.ChartArea.Fill.Visible = msoTrue
.ChartArea.Fill.TwoColorGradient pubChartAreaFillColourGradientShadingStyle, 1
.ChartArea.Fill.ForeColor.SchemeColor = rgb(0, 0, 255)
.ChartArea.Fill.BackColor.SchemeColor = rgb(255, 0, 0)
.ChartArea.Fill.ForeColor.SchemeColor = rgb(0, 0, 255) gives me a run time error 1004 - Application defined or Object defined error
What is wrong?
Dim Rpt As Report
'Dim grphChart As Object
Dim grphChart As Graph.Chart
Dim msg As String, lngType As Long, cr As String
Dim ctype As String, typ As Integer, j As Integer
Dim recSource As String
Dim colmCount As Integer, chartType(1 To 6) As String
Dim lngTwisp As Long
lngTwisp = 567 'cm
DoCmd.OpenReport ReportName, acViewDesign
Set Rpt = Reports(ReportName)
Set grphChart = Rpt(ChartObjectName).Object
grphChart.Activate
.ChartArea.Fill.Visible = msoTrue
.ChartArea.Fill.TwoColorGradient pubChartAreaFillColourGradientShadingStyle, 1
.ChartArea.Fill.ForeColor.SchemeColor = rgb(0, 0, 255)
.ChartArea.Fill.BackColor.SchemeColor = rgb(255, 0, 0)
.ChartArea.Fill.ForeColor.SchemeColor = rgb(0, 0, 255) gives me a run time error 1004 - Application defined or Object defined error
What is wrong?