PowerPoint VBA教程:使用表格

在 Microsoft PowerPoint 中,可以自己创建表格而无需从 Microsoft Word 中导入。表格是Shapes集合中的成员。表格中的每个单元格、列和行都是单独的可编程对象。

创建表格

使用AddTable方法可在幻灯片上创建表格。此方法会向 Shapes集合中添加具有 NumRows 和 NumColumns参数所指定的行数和列数的表格。本示例向第二张幻灯片中添加具有三行和四列的表格。


ActivePresentation.Slides(2).Shapes _
    .AddTable NumRows:=3, NumColumns:=4, Left:=10, _
    Top:=10, Width:=288, Height:=288

检测某形状是否为表格

在要处理表格中的内容或对象之前,首先必须了解正在使用的形状是否为表格。若要查看某形状是否为表格,请使用HasTable属性。例如,假定第一张幻灯片中有许多形状,且其中有一个是表格。而您希望调整此表格的大小,以使之能接受从其他来源所导入的数据。下面的代码将遍历第二张幻灯片上的 Shapes集合以找到该表格并调整其列宽。


With ActivePresentation.Slides(2)
    For sh = 1 To .Shapes.Count
        If .Shapes(sh).HasTable Then
            For Each col In .Shapes(sh).Table.Columns
                col.Width = 110
            Next col
        End If
    Next
End With

使用单元格、列和行

若要返回单列或单行中的内容和属性,可使用ColumnsRows集合中的特定成员。Cell方法可返回Table 中的单个Cell对象。本示例将更改第二张幻灯片上第五个形状所代表的表格的各种不同属性。它更改第二行的颜色、第一列的宽度以及包含在第二行第一列单元格中的文本。


With ActivePresentation.Slides(2).Shapes(4).Table
    For Each cl In .Rows(2).Cells
        cl.Shape.Fill.ForeColor.RGB = RGB(50, 125, 0)
    Next cl
    .Columns(1).Width = 110
    .Cell(2, 1).Shape.TextFrame.TextRange.Text = "Mallard"
End With

上页:PowerPoint VBA教程:使用窗格和视图 下页:PowerPoint VBA教程:与语言相关的属性和方法

PowerPoint VBA教程:使用表格

PowerPoint VBA教程:与语言相关的属性和方法 PowerPoint VBA教程:新的事件
PowerPoint VBA教程:新的方法(按字母顺序) PowerPoint VBA教程:新的方法(按对象排序)
PowerPoint VBA教程:新的对象 PowerPoint VBA教程:新的属性(按字母顺序)
PowerPoint VBA教程:新的属性(按对象排序) PowerPoint VBA教程:OLE 程序标识符
PowerPoint VBA教程:为 Microsoft PowerPoint 2002 开发人员新增的内容 PowerPoint VBA教程:Activate方法
PowerPoint VBA教程:Add方法 PowerPoint VBA教程:AddBaseline方法
PowerPoint VBA教程:AddCallout方法 PowerPoint VBA教程:AddComment方法
PowerPoint VBA教程:AddConnector方法 PowerPoint VBA教程:AddCurve方法
PowerPoint VBA教程:AddDiagram方法 PowerPoint VBA教程:AddEffect方法
PowerPoint VBA教程:AddLabel方法 PowerPoint VBA教程:AddLine方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号