如何在VBA中将Shape从一个Powerpoint演示文稿复制到另一个？

Question

我有VBA代码可以将符合特定条件的形状从一个Powerpoint演示文稿复制到下面的另一个。但是，当它粘贴形状时，它会从原始位置偏移（向下和向右）。如何在保持原始坐标的同时复制形状？

sourceShape.Copy
Presentations(2).Windows(1).Activate
ActivePresentation.Slides(x).Shapes.Paste (1)

Answer 1

也许只是：

Shape s=ActivePresentation.Slides(x).Shapes.Paste (1)

s.Left=sourceShape.Left

s.Top=sourceShape.Top