大众计算机学习网

专门提供各种电脑教程

ppt环境下的vba中的Cell对象例子

Admin | 2012-9-14 9:39:24 | 被阅次数 | 4772

  Cell,代表表格单元格。Cell 对象属于 CellRange 集合的成员。CellRange 集合代表指定列或行中的所有单元格。利用 Cells 关键字可使用 CellRange 集合。

  如何来使用Cell对象

  使用方法为:Cell(row, column),这里,row 表示行号,column 表示列标;或者也可这样使用:Cells(index),这里 index 表示指定行或列中单元格的编号,使用后返回的结果为一个 Cell 对象。单元格的编号方法是:在行中从左向右进行编号;在列中则从上到下进行编号。对于从右向左的语言设置,将使用相反的方案。以下示例将合并表格(第二张幻灯片上的第五个形状)中第一行上的前两个单元格。

  With ActivePresentation.Slides(2).Shapes(5).Table
      .Cell(1, 1).Merge MergeTo:=.Cell(1, 2)
  End With

  本示例将表格第一列中第一个单元格的下框设置为虚线样式。

  With ActivePresentation.Slides(2).Shapes(5).Table.Columns(1)  .Cells(1).Borders(ppBorderBottom).DashStyle = msoLineDash
  End With

  使用 Shape 属性可访问 Shape 对象并处理每个单元格中的内容。本示例删除第一个单元格(第一行、第一列)中的文本、并插入新文本,然后将整列的宽度设置为 110 磅。

  With ActivePresentation.Slides(2).Shapes(5).Table.Cell(1, 1)
      .Shape.TextFrame.TextRange.Delete
      .Shape.TextFrame.TextRange.Text = "Rooster"
      .Parent.Columns(1).Width = 110
  End With

  注意:

  不能用编程的方法一次向 PowerPoint 表格中添加多个单元格或从中删除多个单元格。但使用 Columns 或 Rows 集合的 Add 方法可以向表格中添加一列或一行;使用 Columns 或 Rows 集合的 Delete 方法可以从表格中删除一列或一行。