Wie kopiere ich eine Form aus einer Powerpoint-Präsentation in eine andere in VBA?

Question

Ich habe VBA-Code zum Kopieren von Formen, die bestimmten Kriterien entsprechen, aus einer Powerpoint-Präsentation in eine andere darunter. Beim Einfügen der Form wird diese jedoch von der ursprünglichen Position nach unten und rechts verschoben. Wie kann ich eine Form unter Beibehaltung der ursprünglichen Koordinaten kopieren?

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

Answer 1

Vielleicht einfach:

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

s.Left=sourceShape.Left

s.Top=sourceShape.Top