Excel VBA Excel'den Chartları Alıp Powerpoint'e Yapıştırmak Yardım

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

Excel VBA Excel'den Chartları Alıp Powerpoint'e Yapıştırmak Yardım

30/Mar/17 15:12 Kısayol Şikayet Özel Mesaj
Ekerci

Kayıt Tarihi: 14/Ocak/2010
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("PowerPoint.Application")
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(PPT.ActiveWindow.Selection.SlideRange.SlideIndex)



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(myppt_pres.Slides.Count, ppLayoutBlank)
    
    
    
Next


End Sub
```
Ekerci tarafından 30/Mar/17 15:14 tarihinde düzenlenmiştir

Konu ID: 112846 Konuyu Acan : Ekerci Konu Başlığı : Tahribatın en sevdiği adam ? Silinme Sebebi : 3 sayfadır takip ediyorum beni seven kimse çıkmadı. alacağınız olsun müridler
Alıntı yap
30/Mar/17 17:12 Kısayol Şikayet Özel Mesaj

snrhsn

Kayıt Tarihi: 21/Nisan/2015

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

Alıntı yap
30/Mar/17 20:46 Kısayol Şikayet Özel Mesaj

furkiak

Kayıt Tarihi: 29/Nisan/2014

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

Alıntı yap
21/Haz/17 00:33 Kısayol Şikayet Özel Mesaj

emirhan-exp

Kayıt Tarihi: 10/Ocak/2010

mesajla ulaşırsan yardımcı olabilirim

Alıntı yap

Toplam Hit: 2701 Toplam Mesaj: 4
excel vba powerpoint

Cevapla