不同pptx幻灯片上表格中表格单元格值的同时更改

Question

我在两个（或更多）不同的PowerPoint幻灯片上有两个（或多个）相同的表，每个幻灯片一个表。

[仅在其中一个表上修改此单元格时，我需要更新所有表中的相应单元格。

我一直在尝试访问单元格值，并使用pptx包将其存储为变量。

我唯一能做的就是InputBox（），但这不方便。

Answer 1

由于PowerPoint缺少书签，并且只有几个字段，因此您必须长时间指定读取和写入位置。注意合并或拆分单元格的表，这些表可能会解决寻址问题。

Sub UpdateTableCell()
  Dim CellContent$
  CellContent$ = ActivePresentation.Slides(1).Shapes(1).Table.Rows(2).Cells(2).Shape.TextFrame.TextRange.Text
  ActivePresentation.Slides(2).Shapes(1).Table.Rows(3).Cells(4).Shape.TextFrame.TextRange.Text = CellContent$
End Sub

如果将其添加到快速访问工具栏中，可能会发现使用起来更方便。如果图标位于QAT的第5位，则可以使用Alt + 5来运行它作为键盘快捷键。