如何循环演示文稿中的幻灯片，将新的Excel区域粘贴到每张幻灯片的表中

Sub LoopThroughSlidesAndPasteExcelData()
    Dim pptSlide As Slide
    Dim pptTable As Table
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Integer, j As Integer
    
    ' 设置Excel工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据实际情况修改工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 循环遍历每张幻灯片
    For Each pptSlide In ActivePresentation.Slides
        ' 检查幻灯片中是否有表格
        If pptSlide.Shapes.HasTable Then
            Set pptTable = pptSlide.Shapes(1).Table
            ' 清空现有表格内容
            For i = 1 To pptTable.Rows.Count
                For j = 1 To pptTable.Columns.Count
                    pptTable.Cell(i, j).Shape.TextFrame.TextRange.Delete
                Next j
            Next i
            ' 粘贴Excel数据到表格
            For i = 1 To lastRow
                For j = 1 To lastCol
                    pptTable.Cell(i, j).Shape.TextFrame.TextRange.Text = ws.Cells(i, j).Value
                Next j
            Next i
        End If
    Next pptSlide
    
    ' 设置循环播放
    ActivePresentation.SlideShowSettings.Run
    ActivePresentation.SlideShowSettings.LoopUntilStopped = msoTrue
End Sub