PowerPoint VBA教程:Columns集合对象

Table
Columns (Column)
CellRange (Cell)

Column对象的集合,代表表格中的列。

使用 Columns集合

使用 Columns属性可返回 Columns集合。本示例查找当前演示文稿中的第一个表格,并计算 Columns集合中的 Column对象数,然后向用户显示信息。


Dim ColCount, sl, sh As Integer
With ActivePresentation
    For sl = 1 To .Slides.Count
        For sh = 1 To .Slides(sl).Shapes.Count
            If .Slides(sl).Shapes(sh).HasTable Then
                ColCount = .Slides(sl).Shapes(sh) _
                    .Table.Columns.Count
                MsgBox "Shape " & sh & " on slide " & sl & _
                    " contains the first table and has " & _
                    ColCount & " columns."
                Exit Sub
            End If
        Next
    Next
End With

使用Add方法可向表格中添加一列。本示例在现有表格中创建一列,然后将新列的宽度设置为 72 磅(1 英寸)。


With ActivePresentation.Slides(2).Shapes(5).Table
    .Columns.Add.Width = 72
End With

使用 Columns(index) 可返回一个 Column对象。Index 代表 Columns集合中列的位置(通常是从左向右计算的;但TableDirection属性可变换计算方向)。本示例选择第二张幻灯片第五个形状的表格中的第一列。


ActivePresentation.Slides(2).Shapes(5).Table.Columns(1).Select

上页:PowerPoint VBA教程:Column对象 下页:PowerPoint VBA教程:Comment对象

PowerPoint VBA教程:Columns集合对象

PowerPoint VBA教程:Comment对象 PowerPoint VBA教程:Comments集合
PowerPoint VBA教程:ConnectorFormat对象 PowerPoint VBA教程:DefaultWebOptions对象
PowerPoint VBA教程:Design对象 PowerPoint VBA教程:Designs集合
PowerPoint VBA教程:Diagram对象 PowerPoint VBA教程:DiagramNode对象
PowerPoint VBA教程:DiagramNodeChildren集合 PowerPoint VBA教程:DiagramNodes集合
PowerPoint VBA教程:DocumentWindow对象 PowerPoint VBA教程:DocumentWindows集合对象
PowerPoint VBA教程:Effect对象 PowerPoint VBA教程:EffectInformation对象
PowerPoint VBA教程:EffectParameters对象 PowerPoint VBA教程:ExtraColors对象
PowerPoint VBA教程:FillFormat对象 PowerPoint VBA教程:Font对象
PowerPoint VBA教程:Fonts集合对象 PowerPoint VBA教程:FreeformBuilder对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号