PowerPoint VBAda Mesaj ve Giriş Kutularıyla nasıl çalışılır?

Yorumları gözden geçirirken, PowerPoint'te Visual Basic Giriş ve Mesaj kutuları ile nasıl çalışılacağına dair birkaç okuyucu sorusu gördüm.

Bu öğreticide, sunum oluşturma işleminizi otomatikleştirirken bu yetenekleri kullanmanıza yardımcı olacak çok temel bir temel bilgi sağlayacağız.

Geliştirici Sekmesini Ayarlama

Öncelikle, PowerPoint için geliştirici ortamını etkinleştirmemiz gerekecek. Geliştirme sekmenizi ayarlamak için bu öğreticiyi izleyin .

PowerPoint'te Geliştirici menüsüne gidin ve Visual Basic'e basın.

Proje ağacında sunumunuza sağ tıklayın, Ekle'ye basın ve ardından Modül'ü seçin. Yeni bir VBA Modülü oluşturulacak, bu, kodunuzu yazacağınız yer.

PowerPoint'te Mesaj Kutuları

Mesaj kutuları bir nevi kendini açıklayıcıdır, amaçları son kullanıcıya bazı faydalı bilgiler göstermektir. Modülünüze aşağıdaki kodu yazın:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

F5'e veya Çalıştır'a basın ve sonucu görün:

Mesaj ve Giriş Kutusu örneği

Mesaj Kutularından farklı olarak, kullanıcıdan geri bildirim almak için giriş kutuları kullanılır. Aşağıdaki örneğe bakalım. Komut dosyası, sunuma otomatik olarak yeni slaytlar ekler.

İşte uygulayacağımız şey:

1. İlk önce kullanıcıdan eklenecek slayt sayısını isteyeceğiz (bir Giriş Kutusu kullanarak).
2. Daha sonra oluşturulacak slayt sayısı hakkında kullanıcıyı bilgilendireceğiz (Mesaj Kutusu kullanarak)
3. Son olarak, devam edecek ve slaytları programlı olarak oluşturacaktır.
4. Son olarak, değiştirilmiş sunumu kaydedeceğiz

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

Umarım bu yardımcı olmuştur, gerektiğinde yorum olarak bırakmaktan çekinmeyin.