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

Question

假设我在 Powerpoint 中有一张表格，它看起来像这张插图中的左边表格。直线前进，两列，两行。

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

我可以通过以下变量访问包含表格的形状

dim myShape As PowerPoint.Shape

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

myShape.Table.Cell(2,2)

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

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

我的表格现在看起来像顶部两个表格中右边的一个。

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

我试过了

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

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

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