Applying custom chart type

[IgorM]

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 Where:=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

 

[Stefi]

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

Regards,
Stefi


„IgorM†ezt írta: