Λογότυπο Microsoft PowerPoint

Μια γραμμή προόδου είναι ένα γραφικό που, στο PowerPoint, αντιπροσωπεύει οπτικά το ποσοστό της παρουσίασης που έχει ολοκληρωθεί. Είναι επίσης ένας καλός δείκτης του υπολειπόμενου ποσού. Δείτε πώς μπορείτε να δημιουργήσετε μια γραμμή προόδου στο Microsoft PowerPoint.



Μπορείτε να δημιουργήσετε χειροκίνητα μια γραμμή προόδου από εισάγοντας ένα σχήμα στο κάτω μέρος κάθε διαφάνειας. Το πρόβλημα με αυτήν την προσέγγιση είναι ότι θα χρειαστεί να μετρήσετε το μήκος κάθε σχήματος με βάση τον αριθμό των διαφανειών στην παρουσίαση. Επιπλέον, εάν προσθέσετε ή αφαιρέσετε μια διαφάνεια, θα χρειαστεί να επαναλάβετε με μη αυτόματο τρόπο τη γραμμή προόδου σε κάθε διαφάνεια της παρουσίασης.

Για να διατηρήσετε τα πάντα συνεπή και να γλιτώσετε από έναν σοβαρό πονοκέφαλο, μπορείτε χρησιμοποιήστε μια μακροεντολή για να δημιουργήσετε μια γραμμή προόδου. Με αυτήν τη μακροεντολή, η γραμμή προόδου θα προσαρμοστεί αυτόματα με βάση τον αριθμό των διαφανειών στην παρουσίαση.

ΣΧΕΤΙΖΕΤΑΙ ΜΕ: Επεξήγηση μακροεντολών: Γιατί τα αρχεία του Microsoft Office μπορεί να είναι επικίνδυνα

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

Επιλογή μακροεντολών

Θα εμφανιστεί το παράθυρο Μακροεντολή. Στο πλαίσιο κειμένου κάτω από Όνομα μακροεντολής, πληκτρολογήστε ένα όνομα για τη νέα σας μακροεντολή. Το όνομα δεν μπορεί να περιέχει κενά. Μόλις εισαχθεί, κάντε κλικ στην επιλογή Δημιουργία ή, εάν χρησιμοποιείτε Mac, κάντε κλικ στο εικονίδιο +.

Εισαγάγετε το όνομα της μακροεντολής και κάντε κλικ στη δημιουργία

Διαφήμιση

Θα ανοίξει τώρα το παράθυρο της Microsoft Visual Basic for Applications (VBA). Στο πρόγραμμα επεξεργασίας, θα δείτε αυτόν τον κώδικα:

Sub ProgressBar() End Sub

Κώδικας μακροεντολών στο πρόγραμμα επεξεργασίας

Αρχικά, τοποθετήστε τον κέρσορα ανάμεσα στις δύο γραμμές κώδικα.

Τοποθέτηση δρομέα στο πρόγραμμα επεξεργασίας

Στη συνέχεια, αντιγράψτε και επικολλήστε αυτόν τον κωδικό:

On Error Resume Next  
With ActivePresentation
For X = 1 To .Slides.Count
.Slides(X).Shapes('PB').Delete
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
s.Fill.ForeColor.RGB = RGB(127, 0, 0)
s.Name = 'PB'
Next X:
End With

Αφού επικολληθεί, ο κώδικάς σας θα πρέπει να μοιάζει με αυτό στο πρόγραμμα επεξεργασίας.

Μορφή τελικού κώδικα στο πρόγραμμα επεξεργασίας

Σημείωση: Δεν υπάρχουν διακοπές γραμμής τώρα μεταξύ της πρώτης και της τελευταίας γραμμής κώδικα.

Τώρα μπορείτε να κλείσετε το παράθυρο VBA. Επιστρέψτε στο Microsoft PowerPoint, κάντε ξανά κλικ στις Μακροεντολές στην καρτέλα Προβολή.

google εφαρμογή καιρού για android

Επιλογή μακροεντολών

Στη συνέχεια, επιλέξτε το όνομα της μακροεντολής σας (ProgressBar στο παράδειγμά μας) για να το επιλέξετε και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.

Επιλέξτε τη μακροεντολή ProgressBar

Η γραμμή προόδου θα εμφανίζεται τώρα στο κάτω μέρος κάθε διαφάνειας της παρουσίασής σας.


Διαφήμιση

Εάν διαγράψετε μια διαφάνεια, η γραμμή προόδου θα προσαρμοστεί αυτόματα. Εάν προσθέσετε μια νέα διαφάνεια, θα χρειαστεί να εκτελέσετε ξανά τη μακροεντολή (Προβολή > Μακροεντολή > Εκτέλεση). Είναι μια μικρή ταλαιπωρία σε σύγκριση με τη χειροκίνητη ρύθμιση των πάντων.

ΔΙΑΒΑΣΤΕ ΤΗ ΣΥΝΕΧΕΙΑ