Excelde verileri PPT Gönder.Kaynagı Kendi İçerisine Tanımlama

[Kemal Demir]

Arkadaşlar günaydın,

Konu başlıgında calismanın amacını umarım anlatabilmişimdir.
Yapmak istediğim calisma;

Haluk bey'in hazırlamıs oldugu kod ile excel dosyası içerisinde var olan grafikleri PPT dosyasına kopyalamaktadır.Excel dosyası içerisindeki kodlardan görebileceksiniz.Yalnız bu koda ek olarak xls dosyasında "GRID" sheetındeki [a1:d4] aralıgındaki verileri aşagıdaki kod ile mevcut olusan ppt dosyasındaki grafiğin veri değerlerini objenin içerisine gömmek istiyorum.Kaynak artık xls dosyası değilde direk grafiğin içine nasıl gönebiliriz.

edit etmek istediğim kod aşagıdadır.

Bu konuda yardımcı olabilirmisiniz.

NOT : oncelikle *. pps dosyasını *.ppt dosyası halıne cevirmeniz gerekmektedir.

Teşekkurler

[b]''cALİSMASINI İSTEDİĞİM KOD AŞAGIDADIR[/b]
objPPT.ActiveWindow.ViewType = ppViewSlide
objPPT.ActiveWindow.Selection.SlideRange.Shapes(1).Select
Sheets("GRID").Range("A1:D4").Copy
objPPT.ActiveWindow.Selection.ShapeRange.OLEFormat.DoVerb Index:=2
objPPT.ActiveWindow.Selection.ShapeRange.OLEFormat.Object.Application.DataSheet.Cells(1, 1).Paste
objPPT.ActiveWindow.Selection.Unselect
objPPT.ActiveWindow.Selection.SlideRange.Shapes(1).Select
objPPT.ActiveWindow.Selection.Unselect
[b]''KODLARIN MUHTEMEL BİTİŞİ AŞAGIDADIR.[/b]

 

[hamitcan]

Bir Çin sitesinden bir örnek buldum ama çok fazla da incelemedim. En azından fikir olur
http://tw.myblog.yahoo.com/cccki/article?mid=1384&sc=1

 

[Kemal Demir]

Hamit Bey,

Örnek link için teşekkurler.Çare olmadı yada değerlendiremedim.