尝试将Excel图表复制到Power Point演示时，下标超出范围错误

I am trying to copy charts from excel to PPT in a PPT macro using a function. Though, when I try to run the function it says "Subscript out of range" on the line indicated below and I am really confused why. I am trying to copy charts from excel to PPT in