Πώς να ορίσετε ένα χρώμα κελιού Excel σύμφωνα με μια συνθήκη με το VBA;
Ανακαλύψτε πώς να ρυθμίσετε το χρώμα κελιού Excel ανάλογα με μια συνθήκη χρησιμοποιώντας VBA.
Πριν από μερικές ημέρες, ένας αναγνώστης ρώτησε ότι υπάρχει ένας τρόπος να αυτοματοποιηθεί η δημιουργία παρουσιάσεων PowerPoint από την αρχή και στη συνέχεια να προστεθούν γρήγορα διαφάνειες σε αυτήν την υπάρχουσα παρουσίαση. Νομίζω ότι αυτό το σενάριο μπορεί να είναι πολύ στη λίστα με τις πιο χρήσιμες μακροεντολές PowerPoint.
Όπως αναφέραμε στο παρελθόν, το PowerPoint δεν περιλαμβάνει Macro Recorder (σε αντίθεση με το Excel και το Word, που και τα δύο έχουν ενσωματώσει συσκευές εγγραφής για Macro). Επομένως, έχουμε μείνει με την παλιά καλή Visual Basic για Εφαρμογή που μπορούμε να χρησιμοποιήσουμε για να δημιουργήσουμε απλές μακροεντολές για την αυτοματοποίηση του PowerPoint. Υπάρχουν και άλλες εναλλακτικές λύσεις για το PowerPoint Automation, αλλά αυτές υπερβαίνουν το πεδίο εφαρμογής αυτού του σεμιναρίου.
Στο σημερινό σύντομο σεμινάριο, θα εξετάσουμε τρεις διαφορετικές περιπτώσεις χρήσης:
Ας αρχίσουμε.
Κοιτάξτε την Κορδέλα. Εάν δεν βλέπετε την καταχώριση προγραμματιστή στο μενού, πριν ξεκινήσετε την κωδικοποίηση, θα πρέπει να ενεργοποιήσετε την καρτέλα προγραμματιστή.
Αφού κάνετε το μενού προγραμματιστή ορατό την Κορδέλα σας, προχωρήστε και πατήστε Προγραμματιστής και μετά πατήστε το κουμπί της Visual Basic (ή απλώς προχωρήστε και πατήστε Alt+F11) για να ανοίξετε το IDE της Visual Basic.
VBA για τη δημιουργία παρουσίασης PowerPoint
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA για εισαγωγή διαφανειών
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
Μακροεντολή για να ρυθμίσετε μια νέα παρουσίαση και να προσθέσετε διαφάνειες
Αυτό θα ήταν απλώς η ανάμειξη των δύο αποσπασμάτων που περιγράφονται παραπάνω.
Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub
Στη συνέχεια, μπορείτε να δείτε το σεμινάριο μας σχετικά με τη δημιουργία σχημάτων μέσω προγραμματισμού στο PowerPoint με VBA
Δημιουργήστε μια παρουσίαση PowerPoint από το Excel
Η τελευταία περίπτωση είναι ότι θέλετε να δημιουργήσετε μια παρουσίαση PowerPoint απευθείας από ένα υπολογιστικό φύλλο του Excel. Μπορείτε να χρησιμοποιήσετε την ίδια τεχνική από το Word και άλλες εφαρμογές του Microsoft 365.
Sub CreatePresentationFromExcel()
Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")
Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close
MyPPt.Quit
MsgBox ("Presentation saved")
End Sub
Απολαύστε 🙂
Ανακαλύψτε πώς να ρυθμίσετε το χρώμα κελιού Excel ανάλογα με μια συνθήκη χρησιμοποιώντας VBA.
Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint. Ανακαλύψτε πόσο απλά μπορείτε να κόψετε φωτογραφίες σε κύκλους για εντυπωσιακές παρουσιάσεις.
Μάθετε πώς να κάνετε εναλλαγή από πληκτρολόγια LTR σε RTL στο Microsoft Word.
Μάθετε πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord. Οι επιλογές γραμματοσειρών είναι ποικίλες και πλούσιες.
Κορυφαίες εφαρμογές κοπής ήχων κλήσης στο Android για τη δημιουργία μοναδικών ήχων κλήσης. Ανακαλύψτε τις καλύτερες επιλογές για να προσαρμόσετε το τηλέφωνό σας.
Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας στο Facebook Messenger. Αυτή τη στιγμή στην ομαδική συνομιλία του Facebook Messenger, μπορούμε εύκολα να αλλάξουμε το όνομα της ομάδας συνομιλίας.
Ανακαλύψτε πώς να επαναφέρετε διαγραμμένες αναρτήσεις στο Facebook εύκολα και γρήγορα. Μαθαίνετε όλες τις λεπτομέρειες για την ανάκτηση διαγραμμένων αναρτήσεων
Οδηγίες για την ακρόαση μουσικής στους Χάρτες Google Επί του παρόντος, οι χρήστες μπορούν να ταξιδέψουν και να ακούσουν μουσική χρησιμοποιώντας την εφαρμογή Google Map στο iPhone. Σήμερα, το WebTech360 σας προσκαλεί
Οδηγίες για τη χρήση του LifeBOX - Η διαδικτυακή υπηρεσία αποθήκευσης της Viettel, το LifeBOX είναι μια νέα διαδικτυακή υπηρεσία αποθήκευσης της Viettel με πολλά ανώτερα χαρακτηριστικά
Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger, το Facebook Messenger στην πιο πρόσφατη έκδοση παρείχε στους χρήστες μια εξαιρετικά χρήσιμη δυνατότητα: αλλαγή