Applying custom chart type
 

Hi

I have a pivot-chart that I want to have it formatted with my custom chart
type. I have the type created (and saved) but I'm struggiling with the code
responsible for reapplying the type whenever user selectes different item
from the drop-down lists on the chart. I used a recorded code that is as
follows:
Private Sub Chart_Calculate()
ApplyCustomChartType
End Sub

Private Sub ApplyCustomChartType()
Application.Calculation = xlCalculationManual
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
"Raport sprzeda¿y"
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Unfortunatelly the line ActiveChart.ApplyCustomType
ChartType:=xlUserDefined, TypeName:= "Raport sprzeda¿y" triggers the
Chart_Calculate event so the whole macro runs in endless loop.
How can fix this. Kind regards

Igor

Applying custom chart type
 

Try
Application.EnableEvents =False
at the beginning of the sub and set it back to True at the end.

Regards,
Stefi


€žIgorM€� ezt Ã*rta:

Hi

I have a pivot-chart that I want to have it formatted with my custom chart
type. I have the type created (and saved) but I'm struggiling with the code
responsible for reapplying the type whenever user selectes different item
from the drop-down lists on the chart. I used a recorded code that is as
follows:
Private Sub Chart_Calculate()
ApplyCustomChartType
End Sub

Private Sub ApplyCustomChartType()
Application.Calculation = xlCalculationManual
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
"Raport sprzeda¿y"
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Unfortunatelly the line ActiveChart.ApplyCustomType
ChartType:=xlUserDefined, TypeName:= "Raport sprzeda¿y" triggers the
Chart_Calculate event so the whole macro runs in endless loop.
How can fix this. Kind regards

Igor