Kuinka työskennellä viesti- ja syöttölaatikoiden kanssa PowerPoint VBA:ssa?

Kommentteja käydessäni olen nähnyt muutaman lukijan kysymyksen siitä, miten PowerPointin Visual Basic -syöttö- ja viestiruutuja käytetään.

Tässä opetusohjelmassa annamme perustiedot, joiden avulla voit käyttää näitä ominaisuuksia automatisoidessasi esityksen luomista.

Kehittäjä-välilehden määrittäminen

Ensinnäkin meidän on otettava PowerPointin kehittäjäympäristö käyttöön. Määritä kehitysvälilehti noudattamalla tätä opetusohjelmaa .

Siirry PowerPointissa Kehittäjä-valikkoon ja valitse Visual Basic.

Napsauta projektipuussa esitystäsi hiiren kakkospainikkeella, napsauta Lisää ja valitse sitten Moduuli. Uusi VBA-moduuli luodaan, siihen paikkaan, johon kirjoitat koodisi.

Viestilaatikot PowerPointissa

Viestilaatikot ovat tavallaan itsestään selviä, niiden tavoitteena on näyttää hyödyllistä tietoa loppukäyttäjälle. Kirjoita seuraava koodi moduuliisi:

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

Paina F5 tai Run ja katso tulos:

Kuinka työskennellä viesti- ja syöttölaatikoiden kanssa PowerPoint VBA:ssa?

Esimerkki viestistä ja syöttölaatikosta

Toisin kuin viestilaatikoita, syöttöruutuja käytetään palautteen saamiseksi käyttäjältä. Katsotaanpa alla olevaa esimerkkiä. Skripti lisää automaattisesti uudet diat esitykseen.

Toteutamme seuraavat asiat:

  1. Ensin kysymme käyttäjältä lisättävien diojen määrän (syöttöruudun avulla).
  2. Ilmoitamme sitten käyttäjälle luotavien diojen lukumäärästä (viestilaatikon avulla)
  3. Viimeinen, jatkaa ja luo diat ohjelmallisesti.
  4. Viimeiseksi tallennetaan muokattu esitys


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

Toivottavasti se auttoi, voit vapaasti jättää kommentteja tarvittaessa.

Tarkista MsgBox-funktiosta palautetut arvot

Kun MsgBox-valintaikkuna avautuu käyttäjän vuorovaikutusta varten, haluat tietää, mitä vaihtoehtoa käyttäjä napsauttaa, voit tarkistaa seuraavan koodin avulla, että:

Koodi tarkistaa, minkä painikkeen käyttäjä valitsee MsgBoxissa

Jokaisen käyttäjän valinnan mukaan voit jatkaa erilaisten koodien suorittamista, näitä VBA-koodeja, voit oppia VBA-kursseilla johtavien asiantuntijoiden kanssa osoitteessa Opi Excel Online.

Tukeeko MsgBox aksenttia vietnamia? Vastaus on ei, miksi? Koska Microsoft ohjelmoi sen niin. Mutta onko muuta keinoa? Vastaus on kyllä, voit lukea artikkelin Aksentoidun vietnamin käyttäminen MsgBox VBA:n kanssa

Kaikki artikkelin koodi, jonka näet Gistissä:

  Sub HeoBasicMessageBox()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online"
  Lopeta ala
   
  Sub HeoBasicMessageBoxWithTitle()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online", , "HEO"
  Lopeta ala
   
  Sub HeoBasicMessageBox2()
  MsgBox "Hoc Excel Online", _
  vbOKCancel + _
  vbCritical + _
  vbDefaultButton1 + _
  vbApplicationModal
  Lopeta ala
   
  Sub HeoBasicMessageBox3()
  MsgBox "Hoc Excel Online", _
  vbOKCancel + _
  vbCritical + _
  vbDefaultButton1 + _
  vbSystemModal
  Lopeta ala
   
  Sub HeoMsgBoxResult1()
  Himmeä vastaus Kuten VbMsgBoxResult
   
  vastaus = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult2()
  Himmeä vastaus Kuten VbMsgBoxResult
   
  vastaus = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult3()
  Himmeä vastaus Kuten VbMsgBoxResult
   
  vastaus = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
  MsgBox vastaus
   
  Lopeta ala
   
  Sub HeoMsgBoxResult4()
  Himmeä vastaus Kuten VbMsgBoxResult
   
  vastaus = MsgBox("Hoc Excel Online", vbYesNo + vbInformation)
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult5()
  Himmeä vastaus Kuten VbMsgBoxResult
  vastaus = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton)
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult6()
  Himmeä vastaus Kuten VbMsgBoxResult
  vastaus = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton)
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult7()
  Himmeä vastaus Kuten VbMsgBoxResult
  vastaus = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult8()
  Himmeä vastaus Kuten VbMsgBoxResult
  vastaus = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult9()
  Himmeä vastaus Kuten VbMsgBoxResult
  vastaus = MsgBox("Haluatko yrittää uudelleen?", vbRetryCancel + vbQuestion, "Virhe")
  MsgBox vastaus
  Lopeta ala
   
  Sub HeoMsgBoxResult10()
  MsgBox "Kriittinen virhe tapahtui", vbCritical, "Järjestelmävirhe";
  Lopeta ala

Leave a Comment

Xbox 360 -emulaattorit Windows PC:lle asennetaan vuonna 2022 – [10 PARHAAT POINTA]

Xbox 360 -emulaattorit Windows PC:lle asennetaan vuonna 2022 – [10 PARHAAT POINTA]

Tässä artikkelissa on luettelo 10 parhaasta Xbox 360 -emulaattorista Windows PC:lle. Opit, miten voit nauttia Xbox 360 -peleistä helposti Windows 10 -tietokoneella.

[100 % ratkaistu] Kuinka korjata Error Printing -viesti Windows 10:ssä?

[100 % ratkaistu] Kuinka korjata Error Printing -viesti Windows 10:ssä?

Tulostusvirheviestin vastaanottaminen Windows 10 -järjestelmässäsi ja noudata sitten artikkelissa annettuja korjauksia ja saat tulostimesi oikeilleen…

Microsoft Teams -tallenteen tallentaminen ja toistaminen

Microsoft Teams -tallenteen tallentaminen ja toistaminen

Voit palata kokouksiin helposti, jos tallennat ne. Näin voit tallentaa ja toistaa Microsoft Teams -tallenteen seuraavaa kokousta varten.

Kuinka palauttaa oletussovellukset Androidissa

Kuinka palauttaa oletussovellukset Androidissa

Kun avaat tiedoston tai napsautat linkkiä, Android-laitteesi valitsee oletussovelluksen sen avaamiseksi. Voit palauttaa oletussovelluksesi Androidissa tämän oppaan avulla.

KORJAATTU: Entitlement.diagnostics.office.com-sertifikaattivirhe

KORJAATTU: Entitlement.diagnostics.office.com-sertifikaattivirhe

KORJAATTU: Entitlement.diagnostics.office.com-sertifikaattivirhe

10 parasta pelisivustoa, joita koulu ei estänyt vuonna 2022

10 parasta pelisivustoa, joita koulu ei estänyt vuonna 2022

Saadaksesi selville parhaat pelisivustot, joita koulut eivät ole estäneet, lue artikkeli ja valitse paras lukitsemattomien pelien verkkosivusto kouluille, korkeakouluille ja töille

KORJAATTU: Tulostin on virhetilassa [HP, Canon, Epson, Zebra & Brother]

KORJAATTU: Tulostin on virhetilassa [HP, Canon, Epson, Zebra & Brother]

Jos kohtaat tulostimen virhetilan ongelman Windows 10 -tietokoneessa etkä tiedä, kuinka käsitellä sitä, korjaa se seuraamalla näitä ratkaisuja.

Chromebookin varmuuskopiointi (2022)

Chromebookin varmuuskopiointi (2022)

Jos mietit, kuinka voit varmuuskopioida Chromebookisi, me autamme sinua. Lisätietoja siitä, mikä varmuuskopioidaan automaattisesti ja mitä ei ole täällä

Kuinka korjata Xbox-sovellus, joka ei avaudu Windows 10:ssä [PIKAOPAS]

Kuinka korjata Xbox-sovellus, joka ei avaudu Windows 10:ssä [PIKAOPAS]

Haluatko korjata Xbox-sovelluksen, joka ei avaudu Windows 10:ssä, ja seuraa korjauksia, kuten Ota Xbox-sovellus käyttöön Palveluista, nollaa Xbox-sovellus, Palauta Xbox-sovelluspaketti ja muut.

Mikä on LogiOptions.exe (UNICODE) ja onko prosessi turvallinen?

Mikä on LogiOptions.exe (UNICODE) ja onko prosessi turvallinen?

Jos sinulla on Logitechin näppäimistö ja hiiri, näet tämän prosessin käynnissä. Se ei ole haittaohjelma, mutta se ei ole välttämätön suoritettava tiedosto Windows-käyttöjärjestelmälle.