Powepoint dosyasında VBA ile gösteri ayarlarını yapmak
#1
Merdhaba arkadaşlar,
çocuğumun ödevi için hazırladığım ppt dosyasındaki slayt gösterisini bir türlü istediğim gibi beceremedim.
yapmak istediklerim şunlar;
Slayt gösterisinde slayt açıldığında önce soru ve bu soruya ait seçenekler gelecek
buraya kadar sorun yok.

Sorun bundan sonra; soruya verilen cevaplara göre

eğer yanlış cevap seçeneğinin üzerine tıklanırsa; ekrana ağlayan yüz resmi ile birlikte hata ses efekti ve yanlış cevap verildiği mesaj kutusu gelecek, sonraki slayt açılmayacak.
Bu kısımda resim ve mesaj kısmı sorunsuz gerçekleşiyor, ancak sesi bir türlü çaldıramadım.

eğer doğru cevap seçeneği işaretlenirse; ekrana gülen yüz resmi ile birlikte doğru cevap ses efekti gelecek ve sonraki slayda geçiş yapılacak.
Bu kısımda da gülen yüz ve mesaj kısmı sorunsuz gerçekleşiyor, ancak sesi ve sonraki slayda geçişi beceremedim.

yardımlarınızı bekliyorum.



  Alıntı
Bu mesajı beğenenler:
#2
arkadaşlar yardımlarınızı bekliyorum



  Alıntı
Bu mesajı beğenenler:
#3
Sayın abkbek konu önemli babalar tabiiki yapar diyoruz
örneğinizi ekliyorum
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#4
Sayın adnanyurdakul,
çok teşekkür ederim. birkaç gündür birhayli uğraşmama ve internette kaybolmama rağmen cevabı bulamamıştım. şimdi sayenizde bitirdim.
ancak şöyle bir sorum var; hazırladığım sunuyu CD'ye kaydettiğimde ses dosyası için ne yapmam gerekir. normalde ppt dosyalarına animasyon üzerinden ses eklediğimizde sunuyu cd için paketle dediğimizde sesi dosyanın içerisine gömüyordu. ancak bizim çalışmamızda ses dosyası vba kodu ile çağrılıyor bu durumda cd'ye kaydederken dikkat etmem gereken birşey var mı?



  Alıntı
Bu mesajı beğenenler:
#5
Sayın abkbek;
çalışacak olan ses dosyasını powerpointin bulunduğu klasöre kopyala ister cd den çalıştırsınlar isterse hdd ye kopyalayıp çalıştırsınlar aşağıdaki kod ile hep çalışır
eski koda ilave yaptım ya testsound u silin bunu yapıştırın yada elinizle yazın kolay gelsin
Visual Basic
  1. Sub TestSounds()
  2. 'MsgBox ActivePresentation.Path
  3.  
  4. PlaySoundFileB (ActivePresentation.Path & "\Windows Battery Critical.wav")
  5. PlaySoundFileA (ActivePresentation.Path & "\Windows Battery Critical.wav")
  6. End Sub


Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#6
Sayın adnanyurdakul,
size ne kadar teşekkür etsem minnettarlığımı inanın ifade edemem,
emeğinize ve aklınıza sağlık. Günlerdir uğraşıyordum, kızım artık babacığım yapamıyorsan yorma kendini demeye başlamıştı...!
çok ama çok teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 2 Ziyaretçi