Hvordan arbejder man med besked- og inputbokse i PowerPoint VBA?

Når jeg gennemgår kommentarerne, har jeg set et par læserspørgsmål om, hvordan man arbejder med Visual Basic-input- og meddelelsesbokse i PowerPoint.

I dette selvstudium giver vi en meget grundlæggende grundlæggende viden til at hjælpe dig med at bruge disse muligheder, når du automatiserer din præsentationsoprettelse.

Opsætning af fanen Udvikler

Først og fremmest skal vi aktivere udviklermiljøet for PowerPoint. Følg denne vejledning for at konfigurere din udviklingsfane.

I PowerPoint skal du gå til Udviklermenuen og trykke på Visual Basic.

I projekttræet skal du højreklikke på din præsentation, trykke på Indsæt og derefter vælge Modul. Et nyt VBA-modul vil blive oprettet, det er det sted, hvor du vil skrive din kode.

Meddelelsesbokse i PowerPoint

Beskedbokse er lidt selvforklarende, deres mål er at vise nogle nyttige oplysninger til slutbrugeren. Skriv følgende kode i dit modul:

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

Tryk på F5 eller Kør og se resultatet:

Eksempel på besked og inputboks

I modsætning til beskedbokse bruges inputbokse for at få feedback fra brugeren. Lad os se på eksemplet nedenfor. Scriptet indsætter automatisk nye dias til præsentationen.

Her er, hvad vi implementerer:

1. Vi beder først brugeren om antallet af dias, der skal tilføjes (ved hjælp af en inputboks).
2. Vi giver derefter brugeren besked om antallet af dias, der skal oprettes (ved hjælp af en beskedboks)
3. Sidst, vil gå videre og oprette slides programmatisk.
4. Til sidst gemmer vi den ændrede præsentation

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åbentlig hjalp det, du er velkommen til at efterlade kommentarer efter behov.