Τοποθετήστε την γραμμή προόδου στην παρουσίαση του PowerPoint
Η εισαγωγή μιας γραμμής προόδου πρέπει να γίνεται μέσω μακροεντολών . Χρησιμοποιώντας έναν VBE ή έναν οπτικό βασικό επεξεργαστή, μπορείτε να γράψετε συγκεκριμένο κώδικα για να τοποθετήσετε τη γραμμή στο PowerPoint και να διαμορφώσετε το επιθυμητό χρώμα, ύψος και πλάτος της γραμμής. Αυτό το άρθρο θα εξηγήσει πώς.
Προσθέστε την γραμμή προόδου στην παρουσίαση του PowerPoint
Μια γραμμή προόδου συνήθως τοποθετείται στο κάτω μέρος της διαφάνειας του PowerPoint, διατηρώντας τη λεπτή σε σχέση με το υπόλοιπο περιεχόμενο. Για να εισαγάγετε τη γραμμή, μεταβείτε στην επιλογή Εργαλεία > Μακροεντολή > Επεξεργαστής Visual Basic .Στο παράθυρο που ανοίγει, επιλέξτε Εισαγωγή > Ενότητα και, στη συνέχεια, εισάγετε αυτό το κείμενο στην κενή σελίδα:
Sub AddProgressBar ()Κατά τη συνέχιση του σφάλματος στη συνέχεια
Με ActivePresentation
Για το X = 1 έως το .Slides.Count
.Πλαίσια (X). Σχήματα ("PB")
Ορίστε 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"
Επόμενο X:
Τέλος με
End Sub
Στη συνέχεια, επιλέξτε Αρχείο > Κλείσιμο > Επιστροφή στο PowerPoint . Θα επιστρέψετε στην παρουσίασή σας.
Τώρα, κατευθυνθείτε στο Εργαλεία > Μακροεντολές > Μακροεντολές . Επιλέξτε AddProcessBar και πατήστε Εκτέλεση . Θα πρέπει τώρα να εμφανιστεί μια γραμμή προόδου:
Καταργήστε τη γραμμή προόδου από το PowerPoint
Αν θέλετε να καταργήσετε τη γραμμή προόδου από την παρουσίαση του PowerPoint, απλά επιστρέψτε στην ενότητα σας και αντικαταστήστε αυτόν τον κώδικα:Ορίστε s = .Πλαίσια (X) .Shapes.AddShape (msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 12, _X * .PageSetup.SlideWidth / .Slides.Count, 12)
με τα εξής:
Ορίστε s = .Πλαίσια (X) .Shapes.AddShape (msoShapeRectangle, 0, 0, 0, 0)
Εκτελέστε τη μακροεντολή για να καταργήσετε τη γραμμή προόδου.