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

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

vba

如何在VBA中将形状从一个Powerpoint演示文稿复制到另一个Powerpoint演示文稿？,vba,powerpoint,copy-paste,Vba,Powerpoint,Copy Paste,我有VBA代码，可以将符合特定条件的形状从一个Powerpoint演示文稿复制到下面的另一个Powerpoint演示文稿。但是，粘贴形状时，它会从原始位置偏移（向下和向右）。如何在保持原始坐标的同时复制形状 sourceShape.Copy Presentations(2).Windows(1).Activate ActivePresentation.Slides(x).Shapes.Paste (1) 也许只是： Shape s=ActivePresentation.Slides(x).Sh

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

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

也许只是：

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

s.Left=sourceShape.Left

s.Top=sourceShape.Top

尝试使用

.Duplicate

而不是

.Copy