Fotolardan Slayt Hazırlamak

[tukayf]

Sn. Haluk hocam teşekkürler.
Sn. Halit3 referanslar ekli hocam.

 

[halit3]

kod ofis 2003 ve ofis 2007 de çalışıyor oluşturduğu dosyayı ekliyorum.

 

[tukayf]

kod ofis 2003 ve ofis 2007 de çalışıyor oluşturduğu dosyayı ekliyorum.

2016 ve 2019 kullanıyorum bu nedenle olabilir hocam. Çok sağolun.

 

[PriveT]

Konudaki dosyalar bir gün işe yarar şeklinde arşivlik.
Öncelikle emekleriniz için teşekkürler.

Alternatif dosya ekliyorum.
referanslarda bu olmalı
microsoft powerpoint xx.0 object library
Resim Dosyalarını Bul komut düğmesinden resimlerin bulunduğu klasör seçilecek daha sonrada İşlemi başlat komut düğmesine tıklanacak

Sayın @halit3 Bey,
Dosyanızı Office 2016'da denedim. PPApp.ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select satırında hata verdi.
Düzenleme yapabilir misiniz? Aslen Office 2010 kullanıyorum ama şuanda 2010'da deneyemiyorum malesef.

Söz konusu işlemi yapmak üzere Excel VBA ile bir kod hazırladım. Buna göre;

-Bu mesaj ekindeki sıkıştırılmış dosyayı bilgisayarınızda bir yere çıkartın. Bu klasörün içindeki Excel dosyasını açın, sayfanın üzerindeki butona tıklayın.

-Bu klasörün içindeki tüm alt klasörlerdeki (Balıklar, Kediler, Köpekler) resimler söz konusu Excel dosyasının bulunduğu dizin içinde otomatik olarak oluşturulacak Test.pptx isimli sunum dosyasında her slide'a bir resim gelecek şekilde slide'a ortalı olarak yerleştirilecek, resimlerin bordürü belirttiğiniz gibi mavi olacak ve her slide'ın üzerinde resimin alındığı klasör adı yazacak.

-Eğer dosya işinize yararsa ve gönlünüzden bir bağış yapmak geçerse, Banka Hesap Numaramı özel mesajla iletebilirim...


.

Sayın @Haluk Bey, sizin dosyanız bende CAn't execute code in break mode hatası verdi. Düzenleme yapabilir misiniz?

 

[Haluk]

....
..
Sayın @Haluk Bey, sizin dosyanız bende CAn't execute code in break mode hatası verdi. Düzenleme yapabilir misiniz?

Benim yapabileceğim bir şey yok, hata verdikten sonra kodu çalıştırmaya uğraşmışsınız....... Hata mesajı bunu diyor.

Hatayı sonlandırıp, tekrar çalıştırmayı deneyin....

.

 

[halit3]

Konudaki dosyalar bir gün işe yarar şeklinde arşivlik.
Öncelikle emekleriniz için teşekkürler.





Sayın @halit3 Bey,
Dosyanızı Office 2016'da denedim. PPApp.ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select satırında hata verdi.
Düzenleme yapabilir misiniz? Aslen Office 2010 kullanıyorum ama şuanda 2010'da deneyemiyorum malesef.

mevcut kullandığınız dosyaya ait referenslar bölümünün resmini eklermisiniz
bendeki referanslar böyle

 

[PriveT]

mevcut kullandığınız dosyaya ait referenslar bölümünün resmini eklermisiniz
bendeki referanslar böyle

Ekli dosyayı görüntüle 207504

Bendekinin görüntüsü
Dosya isimlerini çekiyor, PP oluşturmuyor.

 

[PriveT]

Benim yapabileceğim bir şey yok, hata verdikten sonra kodu çalıştırmaya uğraşmışsınız....... Hata mesajı bunu diyor.

Hatayı sonlandırıp, tekrar çalıştırmayı deneyin....

.

Sağlık olsun.

 

[Haluk]

Sağlık olsun.

Bir de, indirdikten sonra açtığınız klasörün ve içindeki dosya özelliklerini kontrol edin bence ..... "Read-only" falan olursa, o yüzden hata verebilir.

.

 

[Haluk]

Bir de, indirdikten sonra açtığınız klasörün ve içindeki dosya özelliklerini kontrol edin bence ..... "Read-only" falan olursa, o yüzden hata verebilir.

.

@tukayf siz de buna bakarsanız, iyi olur...

.

 

[PriveT]

Bir de, indirdikten sonra açtığınız klasörün ve içindeki dosya özelliklerini kontrol edin bence ..... "Read-only" falan olursa, o yüzden hata verebilir.

.

Ben direk sizin örnek klasörde denemiştim. Evet dediğiniz gibi salt okunurmuş klasörler. Düzeldi.
Fakat bende de resimler sayfadan taşıyor.
Teşekkürler.

 

[Haluk]

Ben direk sizin örnek klasörde denemiştim. Evet dediğiniz gibi salt okunurmuş klasörler. Düzeldi.
........
...

Bazı işletim sistemlerinde Windows ayarlarına göre internetten dosya indirildiğinde, güvenlik nedeniyle Read-Only özelliği otomatik olarak atanır.

Bundan şüphelendiğim için kontrol etmenizi istemiştim. Nitekim, durum böyleymiş....

.......
...
Fakat bende de resimler sayfadan taşıyor.
.....

Bunun için kodda aşağıdaki satırı silip;

            opic.Width = filePowerPoint.PageSetup.Slidewidth * 0.7

bunu deneyin....

            opic.Width = 410

 

[PriveT]

Bazı işletim sistemlerinde Windows ayarlarına göre internetten dosya indirildiğinde, güvenlik nedeniyle Read-Only özelliği otomatik olarak atanır.

Bundan şüphelendiğim için kontrol etmenizi istemiştim. Nitekim, durum böyleymiş....




Bunun için kodda aşağıdaki satırı silip;

            opic.Width = filePowerPoint.PageSetup.Slidewidth * 0.7

bunu deneyin....

            opic.Width = 410

Düzeldi, teşekkürler. Emeğinize sağlık.

 

[tukayf]

Kod satırını değiştirdikten sonra düzeldi hocam. Zihninize sağlık.

 

[halit3]

Dosyayı güncelledim ofis 2010 da çalışıyor

 

[tukayf]

Zihninize sağlık hocam. 2016 da denedim çalışıyor.

 

[halit3]

Zihninize sağlık hocam. 2016 da denedim çalışıyor.

Teşekkürler iyi çalışmalar

 

[S.Yiğit]

@Haluk @halit3 @netzone

Günaydın, Hepinize ayrı ayrı teşekkür ederim. Haluk beyin verdiği çalışma tam istediğimiz gibi oldu.

 

[PriveT]

Dosyayı güncelledim ofis 2010 da çalışıyor

Emeklerinize sağlık.

 

[halit3]

@Haluk @halit3 @netzone

Günaydın, Hepinize ayrı ayrı teşekkür ederim. Haluk beyin verdiği çalışma tam istediğimiz gibi oldu.

1 nolu mesajınızdaki bitmiş slaytın çerçeve rengi mavi olsun istemişsiniz eklemiş olduğum dosyada bu çerçeve mevcut