Hur man arbetar med meddelande- och inmatningsboxar i PowerPoint VBA?

När jag gick igenom kommentarerna har jag sett ett par läsarfrågor om hur man arbetar med Visual Basic Input och Message Boxes i PowerPoint.

I den här handledningen ger vi en mycket grundläggande grundläggande kunskap som hjälper dig att använda dessa funktioner när du automatiserar din presentation.

Konfigurera fliken Utvecklare

Först och främst måste vi aktivera utvecklarmiljön för PowerPoint. Följ den här handledningen för att ställa in din utvecklingsflik.

I PowerPoint, gå till Utvecklarmenyn och tryck på Visual Basic.

Högerklicka på din presentation i projektträdet, tryck på Infoga och välj sedan Modul. En ny VBA-modul kommer att skapas, det är den plats där du ska skriva din kod.

Meddelanderutor i PowerPoint

Meddelanderutor är lite självförklarande, deras mål är att visa användbar information för slutanvändaren. Skriv följande kod i din modul:

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

Tryck på F5 eller Kör och se resultatet:

Exempel på meddelande och inmatningsruta

Till skillnad från meddelandeboxar används inmatningsboxar för att få feedback från användaren. Låt oss titta på exemplet nedan. Skriptet infogar automatiskt nya bilder i presentationen.

Här är vad vi kommer att implementera:

1. Vi kommer först att fråga användaren om antalet bilder som ska läggas till (med hjälp av en inmatningsruta).
2. Vi kommer sedan att meddela användaren om antalet bilder som ska skapas (med hjälp av en meddelanderuta)
3. Sist, kommer att gå vidare och skapa bilderna programmatiskt.
4. Sist sparar vi den ändrade presentationen

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

Förhoppningsvis hjälpte det, lämna gärna kommentarer efter behov.