Dzwebs.Net

撰写电脑技术杂文十余年

VBA设置PowerPoint中的表格

Admin | 2012-8-30 8:39:30 | 被阅次数 | 10744

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在 Microsoft PowerPoint 中,表格是 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

  三、使用单元格、列和行

  若要返回单列或单行中的内容和属性,可使用 Columns 或 Rows 集合中的特定成员。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杂文

上一篇:PowerPoint里面的Shapes形状绘图对象

下一篇:PowerPoint窗体和视图在VBA中的示例

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计