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

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:

PowerPoint VBA'da Mesaj ve Giriş Kutularıyla nasıl çalışılır?

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.

MsgBox işlevinden döndürülen değerleri kontrol edin

Kullanıcı etkileşimi için MsgBox iletişim kutusu açıldığında, kullanıcının hangi seçeneği tıkladığını bilmek istiyorsanız, bunu kontrol etmek için aşağıdaki kodu kullanabilirsiniz:

Kod, kullanıcının MsgBox'ta hangi düğmeyi seçtiğini kontrol eder

Her kullanıcının tercihine karşılık gelen farklı kodları çalıştırmaya devam edebilirsiniz, bu VBA kodlarını, Excel Online Öğrenin sayfasında önde gelen uzmanlarla birlikte VBA kurslarında öğrenebilirsiniz.

MsgBox aksanlı Vietnamca'yı destekliyor mu? Cevap hayır, neden? Çünkü Microsoft bunu böyle programladı. Ama başka yolu var mı? Cevap evet, MsgBox VBA ile Vurgulu Vietnamcayı Kullanma makalesini okuyabilirsiniz.

Gist'te görebileceğiniz makaledeki tüm kodlar:

  Alt HeoBasicMessageBox()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online";
  Son Alt
   
  Alt HeoBasicMessageBoxWithTitle()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online", , "HEO";
  Son Alt
   
  Alt HeoBasicMessageBox2()
  MsgBox "Hoc Excel Çevrimiçi", _
  vbOKİptal + _
  vbCritical + _
  vbDefaultButton1 + _
  vbApplicationModal
  Son Alt
   
  Alt HeoBasicMessageBox3()
  MsgBox "Hoc Excel Çevrimiçi", _
  vbOKİptal + _
  vbCritical + _
  vbDefaultButton1 + _
  vbSystemModal
  Son Alt
   
  Alt HeoMsgBoxResult1()
  Loş yanıt VbMsgBoxResult olarak
   
  yanıt = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult2()
  Loş yanıt VbMsgBoxResult olarak
   
  yanıt = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult3()
  Loş yanıt VbMsgBoxResult olarak
   
  yanıt = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
  MsgBox yanıtı
   
  Son Alt
   
  Alt HeoMsgBoxResult4()
  Loş yanıt VbMsgBoxResult olarak
   
  yanıt = MsgBox("Hoc Excel Online", vbYesNo + vbInformation)
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult5()
  Loş yanıt VbMsgBoxResult olarak
  yanıt = MsgBox("Hata"; vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton)
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult6()
  Loş yanıt VbMsgBoxResult olarak
  yanıt = MsgBox("Hata"; vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton)
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult7()
  Loş yanıt VbMsgBoxResult olarak
  yanıt = MsgBox("Hata"; vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult8()
  Loş yanıt VbMsgBoxResult olarak
  yanıt = MsgBox("Hata"; vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult9()
  Loş yanıt VbMsgBoxResult olarak
  yanıt = MsgBox("Tekrar denemek ister misiniz?", vbRetryCancel + vbQuestion, "Hata")
  MsgBox yanıtı
  Son Alt
   
  Alt HeoMsgBoxResult10()
  MsgBox "Kritik hata oluştu", vbCritical, "Sistem Hatası";
  Son Alt

Zencefil 2.7.53.0

Zencefil 2.7.53.0

Ginger ücretsiz bir yazım ve dilbilgisi denetleyicisidir.

Bloklar

Bloklar

Blocks, ilkokul 3. sınıf öğrencilerinin algılama ve göz becerilerini geliştirmeye yönelik entelektüel bir oyundur ve öğretmenler tarafından BT öğretim destek programına dahil edilmiştir.

Prezi 6.26

Prezi 6.26

Prezi, hem çevrimiçi hem de çevrimdışı dijital sunumlar oluşturmanıza olanak tanıyan ücretsiz bir uygulamadır.

Mathway

Mathway

Mathway, cihazınızın yerleşik hesap makinesinden daha karmaşık bir araç gerektiren tüm matematik problemlerini çözmenize yardımcı olabilecek çok kullanışlı bir uygulamadır.

Adobe Sunucusu

Adobe Sunucusu

Adobe Presenter, Microsoft Windows platformunda Microsoft PowerPoint eklentisi olarak sunulan, Adobe Systems tarafından yayımlanan bir e-Öğrenim yazılımıdır.

ENetViet 24.2

ENetViet 24.2

eNetViet, ebeveynlerin çocuklarının eğitim gördüğü okulla bağlantı kurmasına yardımcı olan ve böylece çocuklarının mevcut öğrenme durumunu net bir şekilde anlayabilmelerine yardımcı olan bir uygulamadır.

Duolingo

Duolingo

Duolingo - Ücretsiz Dil Öğrenin veya kısaca Duolingo, birçok farklı dili öğrenmenize ve pratik yapmanıza olanak tanıyan bir eğitim programıdır.

MathType 7.4.10.53

MathType 7.4.10.53

MathType, geliştirici Design Science'ın (Dessci) sunduğu etkileşimli bir denklem yazılımıdır ve kelime işlem, sunumlar, e-Öğrenim vb. için matematiksel gösterimler oluşturmanıza ve açıklama eklemenize olanak tanır. Bu düzenleyici aynı zamanda TeX, LaTeX ve MathML belgeleri oluşturmak için de kullanılır.

Dilbilgisi açısından

Dilbilgisi açısından

Grammarly'nin yapay zeka destekli uygulamaları insanların daha etkili iletişim kurmasına yardımcı oluyor. Milyonlarca kullanıcı mesajlarını, belgelerini ve sosyal medya gönderilerini daha net, hatasız ve daha profesyonel hale getirmek için her gün Grammarly'ye güveniyor.

Canlı çalışma sayfaları

Canlı çalışma sayfaları

Canlı çalışma sayfaları, öğrenciler için etkileşimli alıştırmalar oluşturmak için yararlı bir araçtır. Öğretmenler için kullanımı kolaydır ve öğrenmeyi daha eğlenceli ve ilgi çekici hale getirebilir.