I have my formatting in the load of the form. Here is what I have when I load the form.
Private Sub Form_Load()
Dim c As ChartSpace
'Set the Chart data.
Set c = Me.ChartSpace
c.SetData chDimCategories, chDataBound, strCategory
c.SetData chDimCategories, chDataBound, strCategory
c.SetData chDimValues, chDataBound, strData
c.Charts(0).Axes(0).HasTitle = True
c.Charts(0).Axes(0).Title.Caption = strCategoryCaption
c.Charts(0).Axes(1).HasTitle = True
c.Charts(0).Axes(1).Title.Caption = strValueCaption
If (strGPSLoss = "all" Or strGPSLoss = "") And (strLossType = "all" Or strLossType = "") And (strLoss = "all" Or strLoss = "") And (strReason = "all" Or strReason = "") Then
c.SetData chDimFilter, chDataBound, "Line"
' c.SetData chDimSeriesNames, chDataBound, strSeries
c.SetData chDimSeriesNames, chDataBound, DAvg("[GPS Loss]", "qryDowntime")
Else
c.SetData chDimFilter, chDataBound, strSeries
c.SetData chDimSeriesNames, chDataBound, "line"
End If
End Sub
The data is on the form and will load with the pivot chart