Merhabalar, Elimde çok uzun slaytlar var ve bunları her hafta yapmam gerekiyor. VBA ile exceldeki chartları kopyalayıp belirli slaytlara yapıştırmam gerekiyor fakat bulamadım nası yapacagımı. Aşağıdaki kodda path'te bulunan ppt'yi açıyor daha sonra excelde bulunan sheet1'deki 2 chartı ppt'nin içine yapıştırıyor. İşin son aşamasına gledim fakat daha fazla ilerleyemedim. şimdi ben istiyorum ki sheet1 de bulunan chartları slide 5e atsın. sheet2 de bulunan chartları slide 7ye atsın. chartların tam olarak belirlediğim yerlere atılmasını istiyorum. Nasıl yapabilirim? Sub ExcelToPres Dim PPT As Object Set PPT = CreateObject PPT. Visible = True PPT. Presentations. Open Filename:="C:\Users\mustafze\Desktop\MyTasks\PPTX denem. pptx" Dim myppt_pres As PowerPoint. Presentation Set myppt_pres = PPT. ActivePresentation Dim myslide As PowerPoint. slide Set myslide = myppt_pres. Slides Dim mychart As ChartObject For Each mychart In ActiveSheet. ChartObjects 'MsgBox mychart. Name mychart. Copy myslide. Shapes. PasteSpecial ppPasteDefault 'from one sheet. if u have more sheets than number changes myslide. Shapes(1). Top = 100 myslide. Shapes(1). Height = 300 myslide. Shapes(1). Left = 30 'Set myslide = myppt_pres. Slides. Add Next End Sub Ekerci tarafından 30/Mar/17 15:14 tarihinde düzenlenmiştir

mesajla ulaşırsan yardımcı olabilirim

ActiveSheet. ChartObjects yerine sayfa1. chartobjects olarak değiştirirsen sayfa 1 dekini alır. aynı şekilde mysilde= kısmındaki ptt. activewindows yerine windows(5) yazarsan pp deki 5. sayfaya aktarır Android Mobil Uygulama - Web Sitesi - Masaüstü Yazılım yapılır. Vitaminsiz Palyaço

belki bunlar yardımcı olabilir : http://stackoverflow.com/questions/25353221/export-excel-charts-as-images-using-powerpoint-vba http://stackoverflow.com/questions/19518575/copy-charts-from-excel-to-ppt-using-vba-macro http://smallbusiness.chron.com/copy-chart-excel-powerpoint-vba-40834.html Go Further