PowerPoint幻灯片表格高度设置问题：VBA代码运行无效果求助

你写的代码是针对Excel工作表中的结构化表格（ListObject）的，但你的需求是调整PowerPoint幻灯片里的表格，两者属于不同的Office对象模型，所以代码完全不生效。

以下是针对PowerPoint幻灯片表格的VBA代码，可实现设置表格高度为14厘米：

Sub SetPPTTableHeight()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim tblShape As PowerPoint.Shape
    
    ' 获取当前激活的PowerPoint演示文稿
    Set pptApp = GetObject(, "PowerPoint.Application")
    Set pptPres = pptApp.ActivePresentation
    
    ' 指定要操作的幻灯片（这里用第1张，根据实际修改索引）
    Set pptSlide = pptPres.Slides(1)
    
    ' 定位幻灯片中的表格：可按索引或名称查找
    ' 方式1：按形状索引（示例为第1个形状）
    Set tblShape = pptSlide.Shapes(1)
    ' 方式2：按形状名称查找（替换成你的表格实际名称）
    ' Set tblShape = pptSlide.Shapes("Table 1")
    
    ' 确认目标形状是表格后调整高度
    If tblShape.HasTable Then
        ' 将14厘米转换为PowerPoint使用的磅单位
        tblShape.Height = Application.CentimetersToPoints(14)
        
        ' 可选：如果需要固定行高且均匀分配总高度
        Dim rowIdx As Integer
        For rowIdx = 1 To tblShape.Table.Rows.Count
            tblShape.Table.Rows(rowIdx).Height = tblShape.Height / tblShape.Table.Rows.Count
        Next rowIdx
    End If
End Sub

• 打开VBA编辑器后，需先添加PowerPoint对象库引用：点击「工具」→「引用」→ 勾选「Microsoft PowerPoint xx.x Object Library」（xx.x对应你的Office版本）。
• 确认代码中指定的幻灯片索引、形状索引/名称与实际一致，否则会找不到目标表格。
• 如果不需要均匀分配行高，可删除循环设置行高的部分，直接设置表格形状高度即可。

内容的提问来源于stack exchange，提问作者Ets