Как скопировать Shape из одной презентации Powerpoint в другую в VBA?

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