Hogyan dolgozhatok az üzenet- és beviteli mezőkkel a PowerPoint VBA-ban?

A megjegyzéseket végigolvasva láttam néhány olvasói kérdést, hogy hogyan kell dolgozni a Visual Basic beviteli és üzenetmezőkkel a PowerPointban.

Ebben az oktatóanyagban olyan alapvető alapvető ismereteket nyújtunk, amelyek segítségével a prezentációkészítés automatizálása során használhatja ezeket a képességeket.

A Fejlesztői lap beállítása

Először is engedélyeznünk kell a PowerPoint fejlesztői környezetét. Kövesse ezt az oktatóanyagot a fejlesztési lap beállításához.

A PowerPointban lépjen a Fejlesztő menübe, és nyomja meg a Visual Basic gombot.

A projektfán kattintson jobb gombbal a prezentációra, nyomja meg a Beszúrás gombot, majd válassza a Modul lehetőséget. Létrejön egy új VBA-modul, ez az a hely, ahová a kódot kell írni.

Üzenetdobozok a PowerPointban

Az üzenődobozok egyfajta magától értetődőek, céljuk, hogy hasznos információkat jelenítsenek meg a végfelhasználó számára. Írja be a következő kódot a moduljába:

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

Nyomja meg az F5-öt vagy a Futtatást, és nézze meg az eredményt:

Üzenet és beviteli doboz példa

Az Message Boxokkal ellentétben a beviteli mezőket arra használják, hogy visszajelzést kapjanak a felhasználótól. Nézzük az alábbi példát. A szkript automatikusan beszúrja az új diákat a prezentációba.

A következőket fogjuk megvalósítani:

1. Először megkérjük a felhasználót, hogy adja meg a hozzáadandó diák számát (egy beviteli mező használatával).
2. Ezután értesítjük a felhasználót a létrehozandó diák számáról (üzenődoboz segítségével).
3. Végül folytatja, és programozottan hozza létre a diákat.
4. Végül elmentjük a módosított prezentációt

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

Remélhetőleg ez segített, ha szükséges, nyugodtan írjon megjegyzéseket.