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

У меня есть код VBA для копирования фигур, соответствующих определенным критериям, из одной презентации Powerpoint в другую ниже. Однако, когда он вставляет фигуру, она смещается (вниз и вправо) от исходного положения. Как я могу скопировать форму, сохранив исходные координаты?

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

copy-paste vba powerpoint
person cgr    schedule 22.02.2011    source источник
comment
Попробуйте использовать .Duplicate вместо .Copy   -  person Todd Main    schedule 22.02.2011

Ответы (1)


arrow_upward
1
arrow_downward

Возможно просто:

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

s.Left=sourceShape.Left

s.Top=sourceShape.Top
person Arie Livshin    schedule 05.01.2012