Kung sa huling Araw ng mga Puso ay binigyan mo na ang iyong minamahal na babae ng isang cheetah fur coat, at noong nakaraang taon - iPhone 7, at iniisip mo kung ano pa ang iisipin, maaari akong mag-alok ng isang pagpipilian:
Tumatagal ng 2 minuto para magawa ito.
Buksan ang Excel, pumunta sa tab Insert – Mga Hugis (Ipasok — Mga Hugis) at pumili ng puso:
Iginuhit namin ito sa isang sheet, magpasok ng nakakaantig na teksto sa loob, i-format ito nang naaangkop:
Para sa higit na pagiging natural, magdagdag ng 3D effect sa tab Format – Mga Hugis na Effect (Format — Mga Hugis na Effect):
At ang huling pagpindot – magdagdag ng macro para sa animation. I-click Alt + F11, sa window ng Visual Basic editor na bubukas, magpasok ng bagong walang laman na module sa pamamagitan ng menu Ipasok – Module at kopyahin ang teksto ng macro na ito doon:
Sub Heart() Para sa i = 1 Hanggang 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Now + TimeSerial(0, 0, 0.1)) Susunod i End Sub
Isara ang Visual Basic Editor, i-click Alt + F8 at patakbuhin ang aming macro. Voila! Minamahal – sa ecstasy, ikaw – sa mga halik, naging matagumpay ang holiday. Kung hindi ito pinahahalagahan ng iyong mahal sa buhay, pagkatapos ay matutunan ang mga utos ng VBA para sa pagtatrabaho sa 3D 🙂