PowerPoint Sunusuna Sayaç Eklemek

Geçenlerde bir münazara yarışması için PowerPoint sunumu hazırlama istendi. Münazara kurallarına göre her konuşmacı 5 dakika konuşabilir. Bu yüzden konuşmanın başlayıp bitmesi gereken göstermesi için hazırladığım sunuma birde sayaç ekledim. Slaydımıza sayaç eklemek için biraz Visual Basic bilgisi gerekiyor. Office 2007 kullandığım için sayaç ekleme işini Powerpoint 2007 ye göre anlatacağım. Bundan önceki sürümler için kod kısımlarında bir değişiklik yok sadece TextBox, Label gibi kontrolleri eklemek biraz daha farklı.

Öncelikle Office 2007 de var olan ama varsayılan olarak gözükmeyen “Geliştirici Sekmesini” ekleyelim. Bunun için;

  1. Office Butonuna basın. Alt taraftaki PowerPoint Seçeneklerini seçin.
  2. Açılan ayar penceresinde en üstte yeralan “Popüler” sekmesini açın.
  3. Burda “Şeritte Geliştirici Sekmesini Göster” seçeneğini işaretleyip “Tamam” a basın.

Artık yukarıdaki gibi Geliştirici Sekmesini görebiliyor olmalısınız.

Şimdi Sayacımızı eklemeye başlayalım.

Sayaç için öncelikle sunu içerisine bir Metin Kutusu kontrolü ekliyoruz. Ayrıca sayacı başlatıp durdurması içinde 2 tane Komut Düğmesi ekleyeceğiz.

Üzerlerinde CommandButton yazan Komut düğmelerinin üzerlerindeki yazıyı değiştirmek için üzerlerinde sağ tuşa tıklayıp Özellikler komutuna tıklayın.

      • Name: Kontrolün ismidir.
      • BackColor : Kontrolün rengini değiştirebilirsiniz.
      • Caption : Kontrolün Üzerindeki yazıyı buradan değiştirebilirsiniz.
      • ForeColor : Kontrolün üzerindeki yazının rengini değiştirebilirsiniz.
      • Picture : Kontrolün üzerine bir resim ekleyebilirsiniz.

Kısa kısa kontrolün özellikler penceresinden bahsettim. Şimdi işin asıl zor kısmına kod yazma kısmıma gelelim.

Kontrole kod eklemek için eklediğiniz kontrolün üzerinde sağ tuşa basıp kod görüntüle deyin. Bir Visual Basic penceresi açılacak. Buraya kodlarımızı yazacağız.

İlk eklediğimiz CommandButtun1 bizim sayacımızı başlatan butonumuz olacak. CommandButton2 de sayacımızı durduracak.

Private Sub CommandButton1_Click()
Dim PauseTime, Start, x
Dim dakika, saniye
saniye = 0
dakika = 0
c = 0
For x = 0 To 59 Step 1
   Me.TextBox1.Text = dakika & ":" & Str(x)
  PauseTime = 1
   PauseTime = 1    ' Set duration.
  Start = Timer
    If x = 59 Then
    dakika = dakika + 1
   x = 0
  End If
   Do While Timer < Start + PauseTime Or c = 100
   DoEvents
   Loop
Next x
End Sub

 

Private Sub CommandButton2_Click()
c = 100
Me.TextBox1.Text = 0
End Sub

İsterseniz burada benim münazara için hazırladığım sunuyu inceleyebilirsiniz.
Yukarıda anlattığım gibi yapıldı.
atatürk-lice

Buda başka bir örnek. Yine münazara gibi geri sayımlı olmasını istediğiniz sunumlarda kullanabilirsiniz.
geriyesayım1

Bir önceki yazımız olan Dünyada En'ler başlıklı makalemizi de okumanızı öneririz.

Arama Terimleri:

  • powerpoint e geri sayım eklenmesi

4 thoughts on “PowerPoint Sunusuna Sayaç Eklemek

  1. emeğine sağlık ama ya ben calıs tırmayı bilmiyorum yada calısmıyo. benim sornum 60dan geri saycak sonun msj olarak doğru cevap su dicek olailbir mi

  2. Makro güvenlik düzeyini düşürmeniz gerekiyor sanırım. Varsayılan olarak macroları çalıştıramıorsunuz. Güvenlik düzeyini değiştirmeyi deneyin.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir