Remove legend where no data in the chart

[bruty]

I have a doughnut chart that is showing the results for the current quarter next to a column chart which shows the results for the current quarter and previous 2. When there is no data for the current quarter, the doughnut chart does not appear (which is fine) but the legend is still there. This is fine for the column chart as there is normally data in at least one of the 3 quarters shown.

Is there any way to remove or suppress the legend in the doughnut chart when there is no data for the current quarter?

Please note that both charts are fed from the same data, which is a data table that cannot be changed.

 

[pbornemeier]

This code with the chart selected
ActiveChart.Legend.Delete
or this code with the appropriate chart name substituted for 'Chart 3' and with the sheet holding the chart properly referenced
ActiveSheet.ChartObjects("Chart 3").Chart.Legend.Delete

This code will add and position a legend:
ActiveSheet.ChartObjects("Chart 3").Chart.HasLegend = True
ActiveSheet.ChartObjects("Chart 3").Chart.Legend.Position = xlBottom