在不同 pptx 幻灯片上 table 秒内同时更改 table 单元格值

Question

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

每当我修改其中一个单元格时，我需要更新所有 table 中的相应单元格。

我一直在尝试使用 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 作为键盘快捷键。

在不同 pptx 幻灯片上 table 秒内同时更改 table 单元格值

Simultaneous change of table cell values in tables on different pptx slides

powerpoint

vba