Jika pada Hari Valentine yang lalu anda telah memberikan wanita tercinta anda kot bulu cheetah, dan tahun sebelumnya – iPhone 7, dan anda tertanya-tanya apa lagi yang perlu difikirkan, maka saya boleh menawarkan pilihan:
Ia mengambil masa 2 minit untuk melakukan ini.
Buka Excel, pergi ke tab Sisipkan – Bentuk (Sisipkan — Bentuk) dan pilih hati:
Kami melukisnya pada helaian, masukkan teks yang menyentuh di dalamnya, formatkannya dengan sewajarnya:
Untuk lebih semula jadi, tambahkan kesan 3D pada tab Format – Kesan Bentuk (Format — Kesan Bentuk):
Dan sentuhan terakhir - tambahkan makro untuk animasi. klik Alt + F11, dalam tetingkap editor Visual Basic yang terbuka, masukkan modul kosong baharu melalui menu Sisipan – Modul dan salin teks makro ini di sana:
Sub Heart() Untuk i = 1 Hingga 3000 Dengan ActiveSheet.Shapes.Julat(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Tunggu (Sekarang + TimeSerial(0, 0, 0.1)) Seterusnya i End Sub
Tutup Editor Visual Basic, klik Alt + F8 dan jalankan makro kami. Voila! Yang dikasihi - dalam kegembiraan, anda - dalam ciuman, percutian itu berjaya. Jika orang yang anda sayangi tidak menghargainya, maka sekurang-kurangnya pelajari arahan VBA untuk bekerja dengan 3D 🙂