Jika pada Hari Valentine terakhir Anda sudah memberi wanita tercinta Anda mantel bulu cheetah, dan tahun sebelumnya – iPhone 7, dan Anda bertanya-tanya apa lagi yang harus dipikirkan, maka saya dapat menawarkan opsi:
Dibutuhkan 2 menit untuk melakukan ini.
Buka Excel, buka tab Sisipkan – Bentuk (Sisipkan — Bentuk) dan pilih hati:
Kami menggambarnya di selembar kertas, memasukkan teks yang menyentuh di dalamnya, memformatnya dengan tepat:
Untuk kealamian yang lebih besar, tambahkan efek 3D pada tab Format – Efek Bentuk (Format — Efek Bentuk):
Dan sentuhan terakhir – tambahkan makro untuk animasi. Klik Alt + F11, di jendela editor Visual Basic yang terbuka, masukkan modul kosong baru melalui menu Sisipkan – Modul dan salin teks makro ini di sana:
Sub Heart() Untuk i = 1 Sampai 3000 Dengan ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Sekarang + TimeSerial(0, 0, 0.1)) Selanjutnya i End Sub Tutup Editor Visual Basic, klik Alt + F8 dan jalankan makro kami. Voila! Kekasih - dalam ekstasi, Anda - dalam ciuman, liburan itu sukses. Jika orang yang Anda cintai tidak menghargainya, maka setidaknya pelajari perintah VBA untuk bekerja dengan 3D