如何访问由 Cell(i,j) 创建的新单元格。在 Powerpoint 中拆分 VBA

Question

假设我在 Powerpoint 中有一个 table，它看起来像本图中的左侧 table。直线前进，两列，两行。

  ___________________                    ___________________ 
 |         |         |                  |         |         |
 |  1,1    |  1,2    |    Split         |  1,1    |  1,2    |
 |         |         |                  |         |         |
 |_________|_________|    ----->        |_________|_________|
 |         |         |    ----->        |         |   ?,?   |
 |  2,1    |  2,2    |                  |  2,1    |_________|
 |         |         |                  |         |   ?,?   |
 |_________|_________|                  |_________|_________|

我可以通过以下变量

访问持有 table 的形状

dim myShape As PowerPoint.Shape

我可以访问右下角的单元格（记住 VBA 单元格是从 1 开始的，而不是从零开始的）

myShape.Table.Cell(2,2)

我可以拆分任何单元格。让我们将右下角的单元格分成两行：

myShape.Table.Cell(2,2).Split 2,1

我的 table 现在看起来像是顶部两个 table 中右边的那个。

如何访问右下角的两个单元格中的任何一个，由 ?,? 指示？

我试过了

myShape.Table.Cell(2,2).Shape.Table.Cell(1,1)

例如，访问这两个单元格的上部。我还检查了 vba 调试器中的相应 vba-对象，并进行了一些 google 研究。我所能找到的只是如何拆分单元格，而不是如何在拆分后访问任何单元格。我该怎么做？

Answer 1

拆分单元格后，PowerPoint 会认为有更多行（或列，如果您以这种方式拆分）。第一条语句将访问拆分的顶部单元格，第二条语句访问下方的单元格：

ActivePresentation.Slides(1).Shapes(1).Table.Cell(Row:=2, Column:=2).Select
ActivePresentation.Slides(1).Shapes(1).Table.Cell(Row:=3, Column:=2).Select

如何访问由 Cell(i,j) 创建的新单元格。在 Powerpoint 中拆分 VBA

How do I access a new cell created by Cell(i,j).Split in Powerpoint VBA

powerpoint

vba

cell