Automatic centering of ThinkCell chart legends in PPT via Excel VBA

Hello everyone,

I have the following problem: I fill a ThinkCell chart in PowerPoint automatically using VBA in Excel. Depending on the countries which are in the legend, the positioning of the legend varies (due to the different lengths of the country names) so that it is no longer exactly centered above the chart, as it was before the automated filling. Unfortunately I have not yet found a way to automatically place the legends above the charts using a VBA sub in Excel. I would actually like to avoid opening the 500 automatically created PPT presentations again and manually centering the legend above the chart in each one.

Maybe one of you can help me. Unfortunately, my VBA knowledge is still quite limited, but I usually manage to understand scripts and adapt them to my case.

Thanks in advance and best regards
H.-W.