返回介绍

Columns 属性

发布于 2019-10-04 14:09:01 字数 844 浏览 910 评论 0 收藏 0

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

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

示例

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

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文