Ikiwa katika Siku ya Wapendanao ya mwisho tayari ulimpa mwanamke wako mpendwa kanzu ya manyoya ya cheetah, na mwaka uliopita - iPhone 7, na unashangaa ni nini kingine cha kufikiria, basi ninaweza kutoa chaguo:
Inachukua dakika 2 kufanya hivi.
Fungua Excel, nenda kwenye kichupo Ingiza - Maumbo (Ingiza - Maumbo) na uchague moyo:
Tunachora kwenye karatasi, ingiza maandishi yanayogusa ndani, ipange ipasavyo:
Kwa uasilia zaidi, ongeza athari ya 3D kwenye kichupo Umbizo - Athari za Umbo (Muundo - Athari za Maumbo):
Na mguso wa mwisho - ongeza jumla kwa uhuishaji. Bofya Alt + F11, katika dirisha la mhariri wa Visual Basic linalofungua, ingiza moduli mpya tupu kupitia menyu Ingiza - Moduli na unakili maandishi ya jumla hii hapo:
Sub Heart() For i = 1 Hadi 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Maliza na Application.Subiri (Sasa + TimeSerial(0, 0, 0.1)) Ifuatayo na Komesha Sub Funga Kihariri cha Msingi cha Visual, bofya Alt + F8 na kuendesha macro yetu. Voila! Mpendwa - katika ecstasy, wewe - katika busu, likizo ilikuwa mafanikio. Ikiwa mpendwa wako hakuthamini, basi angalau jifunze amri za VBA za kufanya kazi na 3D 🙂