VBA循环将excel数据传输到powerpoint表错误

Question

一直试图让循环工作只是为了节省为每个单独的单元格引用写出多行代码，但我不断收到“对象不支持此属性或方法”的消息，我似乎无法让它工作。

我的代码是：

'cycles through excel table and imports into powerpoint
For ranking = 2 To 11

    With oPPTShape.Table

        .Cells(ranking, 2).Shape.TextFrame.TextRange.Text = Cells(ranking + 2, 1).Text 'store
        .Cells(ranking, 3).Shape.TextFrame.TextRange.Text = Cells(ranking + 2, 2).Text 'Loan Value TY
        .Cells(ranking, 4).Shape.TextFrame.TextRange.Text = Cells(ranking + 2, 3).Text 'Proportion of total Credit Sales
        .Cells(ranking, 5).Shape.TextFrame.TextRange.Text = Cells(ranking + 2, 4).Text ' Accepted Apps 2017
        .Cells(ranking, 6).Shape.TextFrame.TextRange.Text = Cells(ranking + 2, 5).Text ' Accepted Apps 2016
        .Cells(ranking, 7).Shape.TextFrame.TextRange.Text = Cells(ranking + 2, 6).Text ' Variance TY/LY
        .Cells(ranking, 8).Shape.TextFrame.TextRange.Text = Cells(ranking + 2, 7).Text ' % Variance TY/LY

    End With

 Next ranking

任何帮助将不胜感激！