Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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
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
Kod:
[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]
Ekli dosyalar
-
54 KB Görüntüleme: 8
-
128 KB Görüntüleme: 6