Jekk fl-aħħar Jum San Valentinu diġà tajt lill-maħbuba tiegħek kowt tal-pil tal-cheetah, u s-sena ta’ qabel l-aħħar – iPhone 7, u qed tistaqsi x’iktar għandek taħseb, allura nista’ noffri għażla:
Huwa jieħu 2 minuti biex tagħmel dan.
Iftaħ Excel, mur fit-tab Daħħal - Forom (Daħħal — Forom) u agħżel qalb:
Aħna niġbduha fuq folja, nidħlu test li jolqot ġewwa, nifformattjawha kif suppost:
Għal naturalizza akbar, żid effett 3D fuq it-tab Format – Effetti tal-Forma (Format — Effetti tal-Forom):
U l-mess finali - żid makro għall-animazzjoni. Ikklikkja Alt + F11, fit-tieqa tal-editur Visual Basic li tiftaħ, daħħal modulu vojt ġdid permezz tal-menu Daħħal – Modulu u kkopja t-test ta' dan il-makro hemmhekk:
Sub Heart() Għal i = 1 Sa 3000 Bil ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Tmiem Bl-Applikazzjoni.Stenna (Issa + TimeSerial(0, 0, 0.1)) Li jmiss i Tmiem Sub Agħlaq l-Editur Visual Basic, ikklikkja Alt + F8 u mexxi l-makro tagħna. Voila! Għeżież - fl-ecstasy, int - fil-bews, il-festa kienet suċċess. Jekk il-maħbub tiegħek ma japprezzahx, allura għallinqas titgħallem il-kmandi tal-VBA biex taħdem bi 3D 🙂