这不对啊 二次获取的表格的行数是一样的

抱歉，我理解错了你的问题。如果你想在 PPT 中监测表格的变化并获取更新后的行数，可以使用 `SelectionChange` 事件来实现。以下是一个示例代码：

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    Dim shp As Shape
    Dim tbl As Table
    
    ' 检查当前选择是否为表格
    If Sel.Type = ppSelectionShapes Then
        Set shp = Sel.ShapeRange(1)
        If shp.HasTable Then
            Set tbl = shp.Table
            MsgBox "当前表格的行数为：" & tbl.Rows.Count
        End If
    End If
End Sub

你可以将以上代码复制到 PPT 的 VBA 编辑器中（通过按下 `ALT + F11` 打开），然后在左侧的“项目资源管理器”窗口中找到你的演示文稿，展开“本地演示文稿” > “Microsoft PowerPoint 对象” > “ThisDocument”，在该对象下双击打开代码编辑器，并将代码粘贴进去。

当你在 PPT 中选择或点击表格时，`App_WindowSelectionChange` 事件会触发，并在消息框中显示当前表格的行数。你可以根据需要修改代码来执行其他操作，如记录表格变化等。记得在 PPT 中启用宏，以便事件能够正常触发。