如何在 VBA 中将形状从一个 Powerpoint 演示文稿复制到另一个？答案

【问题标题】：How do I copy a Shape from one Powerpoint presentation to another in VBA?如何在 VBA 中将形状从一个 Powerpoint 演示文稿复制到另一个？
【发布时间】：2011-07-01 17:35:47
【问题描述】：

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

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

【问题讨论】：

尝试使用.Duplicate 而不是.Copy

标签： vba powerpoint copy-paste

【解决方案1】：

也许很简单：

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

s.Left=sourceShape.Left

s.Top=sourceShape.Top

【讨论】：