Chart - remove unused legend entries?

[charging rhinos]

Is there a way using vba to delete unused legend entries from a chart legend? What I mean by this is that I have about possible 40 legend entries, which for some reason always are displayed, whether used or not. Often only about 3 to 5 of the legend items will have actual data that appears in my stacked column chart. Is there a way to remove the surplus legend entries so that only the items with chart data are displayed?

Thanks much in advance, and happy Friday to all.