Hoe te werken met bericht- en invoervakken in PowerPoint VBA?

Bij het doornemen van de opmerkingen heb ik een aantal lezersvragen gezien over het werken met Visual Basic-invoer- en berichtvakken in PowerPoint.

In deze zelfstudie bieden we een zeer elementaire basiskennis om u te helpen deze mogelijkheden te gebruiken bij het automatiseren van het maken van uw presentatie.

Het tabblad Ontwikkelaars instellen

Allereerst moeten we de ontwikkelaarsomgeving voor PowerPoint inschakelen. Volg deze zelfstudie om uw ontwikkelingstabblad in te stellen.

Ga in PowerPoint naar het menu Ontwikkelaars en klik op Visual Basic.

Klik in de projectstructuur met de rechtermuisknop op uw presentatie, klik op Invoegen en kies vervolgens Module. Er wordt een nieuwe VBA-module gemaakt, dat is de plaats waar u uw code gaat schrijven.

Berichtenboxen in PowerPoint

Berichtenvensters spreken voor zich, hun doel is om wat nuttige informatie aan de eindgebruiker weer te geven. Schrijf de volgende code in je module:

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

Druk op F5 of Uitvoeren en zie het resultaat:

Voorbeeld bericht en invoervak

In tegenstelling tot Berichtenboxen worden invoervakken gebruikt om feedback van de gebruiker te krijgen. Laten we naar het onderstaande voorbeeld kijken. Het script voegt automatisch nieuwe dia's in de presentatie in.

Dit is wat we zullen implementeren:

1. We vragen de gebruiker eerst om het aantal dia's dat moet worden toegevoegd (met behulp van een invoervak).
2. We zullen de gebruiker dan informeren over het aantal te maken dia's (met behulp van een berichtenvenster)
3. Last, zal doorgaan en de dia's programmatisch maken.
4. Als laatste slaan we de gewijzigde presentatie op

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

Hopelijk heeft dat geholpen, voel je vrij om commentaar te geven als dat nodig is.