Upami dina Poé Valentine anu terakhir anjeun parantos masihan awéwé tercinta anjeun jaket bulu cheetah, sareng taun sateuacana - iPhone 7, sareng anjeun panginten naon deui anu dipikirkeun, maka kuring tiasa nawiskeun pilihan:
Butuh 2 menit pikeun ngalakukeun ieu.
Buka Excel, buka tab Lebetkeun - Wangun (Selapkeun - Wangun) sareng pilih ati:
Kami ngagambar éta dina lambaran, lebetkeun téks anu ngarampa di jero, pormat sasuai:
Pikeun leuwih naturalness, tambahkeun éfék 3D dina tab Format - Pangaruh Bentuk (Format - Pangaruh Wangun):
Sareng sentuhan akhir - tambahkeun makro pikeun animasi. Pencét Alt + F11, dina jandela editor Visual Basic nu muka, selapkeun modul kosong anyar ngaliwatan menu nu Selapkeun - Modul sareng salin téks makro ieu di dinya:
Sub Heart () Pikeun i = 1 Nepi ka 3000 Jeung ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Antosan (Ayeuna + TimeSerial (0, 0, 0.1)) Salajengna i Tungtung Sub Tutup Visual Basic Editor, klik Alt + F8 tur ngajalankeun makro urang. Voila! Tercinta - dina ekstasi, anjeun - dina kisses, libur éta suksés. Upami anjeun dipikacinta henteu ngahargaan éta, teras sahenteuna diajar paréntah VBA pikeun damel sareng 3D 🙂