Πώς να εργαστείτε με κουτιά μηνυμάτων και εισόδου στο PowerPoint VBA;

Περνώντας τα σχόλια, έχω δει μερικές ερωτήσεις αναγνώστη σχετικά με τον τρόπο εργασίας με τα πλαίσια εισαγωγής και μηνυμάτων της Visual Basic στο PowerPoint.

Σε αυτό το σεμινάριο θα παρέχουμε μια πολύ βασική βασική γνώση που θα σας βοηθήσει να χρησιμοποιήσετε αυτές τις δυνατότητες κατά την αυτοματοποίηση της δημιουργίας παρουσίασής σας.

Ρύθμιση της καρτέλας προγραμματιστή

Αρχικά, θα πρέπει να ενεργοποιήσουμε το περιβάλλον προγραμματιστή για το PowerPoint. Ακολουθήστε αυτό το σεμινάριο για να ρυθμίσετε την καρτέλα ανάπτυξή σας.

Στο PowerPoint, μεταβείτε στο μενού Προγραμματιστής και πατήστε Visual Basic.

Στο δέντρο του έργου, κάντε δεξί κλικ στην παρουσίασή σας, πατήστε Εισαγωγή και, στη συνέχεια, επιλέξτε Ενότητα. Θα δημιουργηθεί μια νέα μονάδα VBA, εκεί θα γράψετε τον κώδικά σας.

Κουτιά μηνυμάτων στο PowerPoint

Τα κουτιά μηνυμάτων είναι αυτονόητα, στόχος τους είναι να εμφανίσουν ορισμένες χρήσιμες πληροφορίες στον τελικό χρήστη. Γράψτε τον παρακάτω κώδικα στο Module σας:

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

Πατήστε F5 ή Run και δείτε το αποτέλεσμα:

Παράδειγμα Message and Input Box

Σε αντίθεση με τα Message Boxes, τα κουτιά εισαγωγής χρησιμοποιούνται για τη λήψη σχολίων από τον χρήστη. Ας δούμε το παρακάτω παράδειγμα. Το σενάριο εισάγει αυτόματα νέες διαφάνειες στην παρουσίαση.

Να τι θα εφαρμόσουμε:

1. Θα ζητήσουμε πρώτα από τον χρήστη τον αριθμό των διαφανειών που θα προσθέσει (χρησιμοποιώντας ένα πλαίσιο εισαγωγής).
2. Στη συνέχεια, θα ειδοποιήσουμε τον χρήστη σχετικά με τον αριθμό των διαφανειών που θα δημιουργηθούν (χρησιμοποιώντας ένα πλαίσιο μηνυμάτων)
3. Τελευταίο, θα προχωρήσει και θα δημιουργήσει τις διαφάνειες μέσω προγραμματισμού.
4. Τέλος, θα αποθηκεύσουμε την τροποποιημένη παρουσίαση

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

Ας ελπίσουμε ότι βοήθησε, μη διστάσετε να αφήσετε ως σχόλια όπως χρειάζεται.