PowerPoint VBA教程:Columns属性

返回一个Columns集合,代表表格中的所有列。只读。

有关返回集合中单个元素的详细信息,请参阅返回集合中的对象

VBA示例

本示例显示活动演示文稿内第一个表格中的形状编号、幻灯片编号以及列数。


Dim ColCount As Integer
Dim sl As Integer
Dim 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

本示例检测选定的形状以查看其是否包含表格。如果包含表格,则此代码将设置第一列的列宽为 72 磅(一英寸)。


With ActiveWindow.Selection.ShapeRange
    If .HasTable = True Then
       .Table.Columns(1).Width = 72
    End If
End With

上页:PowerPoint VBA教程:ColorType属性 下页:PowerPoint VBA教程:COMAddIns属性

PowerPoint VBA教程:Columns属性

PowerPoint VBA教程:COMAddIns属性 PowerPoint VBA教程:CommandBars属性
PowerPoint VBA教程:Comments属性 PowerPoint VBA教程:ConnectionSiteCount属性
PowerPoint VBA教程:Connector属性 PowerPoint VBA教程:ConnectorFormat属性
PowerPoint VBA教程:Container属性 PowerPoint VBA教程:Contrast属性
PowerPoint VBA教程:Count属性 PowerPoint VBA教程:Creator属性
PowerPoint VBA教程:CropBottom属性 PowerPoint VBA教程:CropLeft属性
PowerPoint VBA教程:CropRight属性 PowerPoint VBA教程:CropTop属性
PowerPoint VBA教程:CurrentShowPosition属性 PowerPoint VBA教程:CustomDocumentProperties属性
PowerPoint VBA教程:Cyan Property PowerPoint VBA教程:DashStyle属性
PowerPoint VBA教程:DateAndTime属性 PowerPoint VBA教程:DateTime属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号