Extract data labels from a chart in PowerPoint to Excel
Would this work instead of all the loops:

For a = 1 To 10
    For x = 1 To z
        xlWorkbook.Sheets(1).Cells(x, a) = chtnow.SeriesCollection(a).DataLabels(x).Text
    Next
Next a



do not use Interger in VBA - https://stackoverflow.com/questions/26409117/why-use-integer-instead-of-long
do not use variable names like a, z, x, but give them some meaningful names. E.g. x can be row or rows, thus the code would be easier to get.