Hvordan jobbe med meldings- og inndatabokser i PowerPoint VBA?

Når jeg går gjennom kommentarene, har jeg sett et par leserspørsmål om hvordan du jobber med Visual Basic-inndata- og meldingsbokser i PowerPoint.

I denne opplæringen vil vi gi en veldig grunnleggende grunnleggende kunnskap for å hjelpe deg med å bruke disse egenskapene når du automatiserer presentasjonsopprettingen.

Sette opp Utvikler-fanen

Først og fremst må vi aktivere utviklermiljøet for PowerPoint. Følg denne veiledningen for å sette opp utviklingsfanen.

I PowerPoint, gå til Utvikler-menyen og trykk Visual Basic.

Høyreklikk presentasjonen i prosjekttreet, trykk Sett inn og velg Modul. En ny VBA-modul vil bli opprettet, det er stedet du skal skrive koden din.

Meldingsbokser i PowerPoint

Meldingsbokser er på en måte selvforklarende, målet deres er å vise noe nyttig informasjon til sluttbrukeren. Skriv følgende kode i modulen din:

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

Trykk F5 eller Kjør og se resultatet:

Eksempel på melding og inndataboks

I motsetning til meldingsbokser, brukes inndatabokser for å få tilbakemelding fra brukeren. La oss se på eksemplet nedenfor. Skriptet setter automatisk inn nye lysbilder til presentasjonen.

Her er hva vi skal implementere:

1. Vi ber først brukeren om antall lysbilder som skal legges til (ved hjelp av en inndataboks).
2. Vi vil da varsle brukeren om antall lysbilder som skal opprettes (ved hjelp av en meldingsboks)
3. Sist, vil gå videre og lage lysbildene programmatisk.
4. Til slutt lagrer vi den endrede presentasjonen

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

Forhåpentligvis hjalp det, legg gjerne igjen kommentarer etter behov.