繁体   English   中英

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

[英]How do I copy a Shape from one Powerpoint presentation to another in VBA?

我有 VBA 代码可以将符合特定条件的形状从一个 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

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM