Εάν την τελευταία ημέρα του Αγίου Βαλεντίνου δώσατε ήδη στην αγαπημένη σας γυναίκα ένα γούνινο παλτό τσίτα, και πέρσι - το iPhone 7, και αναρωτιέστε τι άλλο να σκεφτείτε, τότε μπορώ να προσφέρω μια επιλογή:
Χρειάζονται 2 λεπτά για να γίνει αυτό.
Ανοίξτε το Excel, μεταβείτε στην καρτέλα Ένθετο – Σχήματα (Εισαγωγή — Σχήματα) και διάλεξε μια καρδιά:
Το σχεδιάζουμε σε ένα φύλλο, εισάγουμε ένα συγκινητικό κείμενο μέσα, το μορφοποιούμε κατάλληλα:
Για μεγαλύτερη φυσικότητα, προσθέστε ένα εφέ 3D στην καρτέλα Μορφή – Εφέ σχήματος (Μορφή — Εφέ σχημάτων):
Και η τελευταία πινελιά – προσθέστε μια μακροεντολή για κινούμενα σχέδια. Κάντε κλικ Alt + F11, στο παράθυρο του προγράμματος επεξεργασίας της Visual Basic που ανοίγει, εισαγάγετε μια νέα κενή μονάδα μέσω του μενού Εισαγωγή – Ενότητα και αντιγράψτε το κείμενο αυτής της μακροεντολής εκεί:
Sub Heart() Για i = 1 έως 3000 με ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Τέλος με την εφαρμογή. Περιμένετε (Τώρα + TimeSerial(0, 0, 0.1)) Επόμενο i Τέλος Υπο Κλείστε το πρόγραμμα επεξεργασίας της Visual Basic, κάντε κλικ Alt + F8 και τρέξτε τη μακροεντολή μας. Voila! Αγαπημένη – σε έκσταση, εσύ – στα φιλιά, οι διακοπές στέφθηκαν με επιτυχία. Εάν ο αγαπημένος σας δεν το εκτιμά, τότε τουλάχιστον μάθετε τις εντολές VBA για εργασία με 3D 🙂