- Код: Выделить всё
ActivePresentation.Slides(#).Shapes(MyShape).Copy
NewObjectID = ActivePresentation.Slides(#).Shapes.Paste.Id
ActivePresentation.Slides(#).Shapes(NewObjectID).Name = NewName
затык на последней строчке -
"Индекс указанного набора выходит за допустимые значения"
Кто-нить чё-нить понимает?
