PowerPoint dosyasındaki bir slaytı belli aralıklarla otomatik olarak tekrar eklemek

VBA nedir?

VBA nedir?

Bir deney için PowerPoint dosyamda her slaylattan sonra bir ses dosyası oynatmam gerekiyordu. Bunu gerçekleştirmek için ses dosyasının olduğu slaytı ilk slayt yaptım. Sonra aşağıdaki VBA[link to the first post] kodunu yazdım. Bu kod birinci slaytı alıp kopyalıyor ve her bir slayttan sonra birinci slaytın bir kopyasını yapıştırıyor.

Aşağıdaki kodu kullanabilmek için

  • Alt + F11 – Makro penceresini açar
  • Buradan Insert > Module seçin
  • Açılan pencereye aşağıdaki kodu yapıştırın
  • Run Macro ya da F5 tuşuna basıp kodu çalıştırın
  • Kod tüm slaytları rastgele sıralar
Sub add_sound()

' This is a comment

Dim i As Integer
Dim myvalue As Integer

myvalue = 3

Dim islides As Integer
slidecount = ActivePresentation.Slides.Count

For i = 1 To slidecount

ActivePresentation.Slides(1).Copy
ActivePresentation.Slides.Paste Index:=myvalue
myvalue = myvalue + 2

Next

End Sub

 

 

 

Bir cevap yazın

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