在 PowerPoint 幻灯片中设置表格高度

Question

我想将滑梯中的桌子设置为 14 厘米的高度。

这是我的代码：

Sub AdjustTableHeight()
    Dim tbl As ListObject 
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1") ' 

    ' Set the height of the table to 14 cm
    tbl.TableStyle = "TableStyleMedium1" '
    tbl.TableObject.RowSizing = xlFixedHeight
    tbl.TableObject.Height = Application.CentimetersToPoints(14)
End Sub

当我运行它时没有任何反应。

Answer 1

OP上的代码是

Excel VBA

代码。当然，你不能用 PowerPoint 运行它。

下面的代码（PowerPoint VBA）设置 PPT 活动窗口中的表格（

data table

和 PowerPoint

table

）高度。

归功于Steve Rindsberg

注意：没有明确的方法来识别对象是

data table

还是 PowerPoint

table

对象。一个可能的解决方法是检查数据表的名称。

Option Explicit
Sub SetTableHeight()
    Dim slide As slide, tbl As Table
    Dim shp As Shape, bNoTab As Boolean
    tabHeight = 14
    bNoTab = True
    ' Get the current active slide
    Set slide = Application.ActiveWindow.View.slide
    For Each shp In slide.Shapes
        If shp.Type = msoTable Then
            bNoTab = False
            shp.Height = tabHeight * 28.35
        End If
    Next
    If bNoTab Then
        MsgBox "There are no tables on the slide."
    Else
        MsgBox "Done"
    End If
End Sub