Yog hais tias nyob rau hnub Valentine hnub kawg koj twb muab koj tus hlub poj niam lub tsho tiv no cheetah pluab, thiab lub xyoo ua ntej kawg - iPhone 7, thiab koj xav paub dab tsi ntxiv xav txog, ces kuv muaj peev xwm muab ib qho kev xaiv:
Nws yuav siv sij hawm 2 feeb los ua qhov no.
Qhib Excel, mus rau tab Ntxig - Cov duab (Insert — Shapes) thiab xaiv lub siab:
Peb kos nws rau ntawm ib daim ntawv, sau cov ntawv kov sab hauv, ua kom nws tsim nyog:
Txhawm rau kom muaj txiaj ntsig zoo dua qub, ntxiv cov nyhuv 3D ntawm lub tab Format – Cov nyhuv zoo (Format — Shapes Effects):
Thiab qhov kawg kov - ntxiv ib qho macro rau animation. Nyem Alt + F11, nyob rau hauv Visual Basic editor qhov rais uas qhib, ntxig ib qho tshiab khoob module los ntawm cov ntawv qhia zaub mov Ntxig - Module thiab luam cov ntawv ntawm no macro muaj:
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Tam sim no + TimeSerial(0, 0, 0.1)) Next i End Sub Kaw lub Visual Basic Editor, nyem Alt + F8 thiab khiav peb macro. Voila! Tus hlub - hauv ecstasy, koj - hauv kev hnia, hnub so tau ua tiav. Yog tias koj tus neeg hlub tsis txaus siab rau nws, tsawg kawg kawm VBA cov lus txib rau kev ua haujlwm nrog 3D 🙂