Excel de varolan Shapes leri PowerPoint e aktarma

[yakup123]

arkadaşlar merhaba bir sorunum vardı makro ile belli bir yere kadar geldim bir noktada takıldım durum şu

excel de makronun oluşturduğu 6-7 tane Shapes (Şekil var) kare şeklinde
bu Shapes leri Varolan Sunum1 isimli PowerPoint dosyasının 2 nci slaytına nasıl otomatik aktarabilirim

saygılarımla

 

[yakup123]

arkadaşlar çok teşekkürler sorunu şöyle bir kod la çözdüm
ilgilenen arkadaşlar olursa kullanabilir


Set PPApp = GetObject(, "Powerpoint.Application")

Set PPPres = PPApp.ActivePresentation
Set PPSlide = PPPres.Slides(5)

For Each rngshape In Sheets("Ek").Shapes
With rngshape
rngshape.Select
rngshape.CopyPicture Appearance:=xlScreen 'Format:=xlPicture
PPPres.Slides(5).Shapes.Paste

Set myShape = PPSlide.Shapes(PPSlide.Shapes.Count)

'Set position:
myShape.Left = 100
myShape.Top = -100 + PPSlide.Shapes.Count * 40



End With
Next rngshape