Inā ma ka lā Valentine hope loa ua hāʻawi mua ʻoe i kāu wahine aloha i kahi kapa hulu cheetah, a ʻo ka makahiki ma mua o ka hope - iPhone 7, a ke noʻonoʻo nei ʻoe i nā mea ʻē aʻe e noʻonoʻo ai, a laila hiki iaʻu ke hāʻawi i kahi koho:
He 2 mau minuke e hana i kēia.
E wehe i ka Excel, e hele i ka pā Hoʻokomo - Nā ʻano (Hoʻokomo - Nā ʻano) a koho i ka naau.
Kahakiʻi mākou iā ia ma kahi pepa, hoʻokomo i kahi kikokikona hoʻopā i loko, e hōʻano kūpono:
No ka mea maoli, e hoʻohui i kahi hopena 3D ma ka pā Hōʻano – Nā hopena o ke ʻano (Hōʻano — Nā Hoʻohālikelike):
A ʻo ka pā hope - hoʻohui i kahi macro no ka animation. Kaomi Alt + F11, i ka puka makani hoʻoponopono Visual Basic e wehe ana, e hoʻokomo i kahi module kaʻawale hou ma o ka papa kuhikuhi Hoʻokomo - Module a kope i ka kikokikona o kēia macro ma laila:
Sub Heart() No i = 1 a hiki i 3000 Me ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Ho'opau me ka noi.E kali (I kēia manawa + TimeSerial(0, 0, 0.1)) Aʻe i End Sub E pani i ka Visual Basic Editor, kaomi Alt + F8 a holo i kā mākou macro. Voila! E ke aloha - i ka ecstasy, ʻoe - i nā honi, ua kūleʻa ka lā hoʻomaha. Inā mahalo ʻole kāu mea aloha iā ia, a laila e aʻo i nā kauoha VBA no ka hana ʻana me 3D 🙂