3D nan Excel

Si nan dènye Jou Valentine a ou te deja bay fanm ou renmen anpil yon rad fouri cheetah, ak ane a anvan dènye - iPhone 7, epi w ap mande ki lòt bagay yo panse a, Lè sa a, mwen ka ofri yon opsyon:

Li pran 2 minit pou fè sa.

Louvri Excel, ale nan tab la Mete - Fòm (Antre — Fòm) epi chwazi yon kè:

3D nan Excel

Nou trase li sou yon fèy, antre yon tèks manyen andedan, fòma li kòmsadwa:

3D nan Excel

Pou plis natirèl, ajoute yon efè 3D sou tab la Fòma - Efè fòm (Fòma — Efè fòm):

3D nan Excel

Ak final la touche - ajoute yon makro pou animasyon. Klike sou Alt + F11, nan fenèt editè Visual Basic ki ouvè, mete yon nouvo modil vid nan meni an Mete – Modil epi kopye tèks makro sa a la:

Sub Heart() Pou mwen = 1 Pou 3000 Avèk ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Fini ak Application.Wait (Kounye a. + TimeSerial (0, 0, 0.1)) Next i End Sub  

Fèmen Editè Visual Basic, klike sou Alt + F8 epi kouri makro nou an. Voila! Mezanmi - nan Ecstasy, ou - nan bo, jou fèt la te yon siksè. Si moun ou renmen an pa apresye li, omwen aprann kòmandman VBA pou travay ak 3D 🙂

 

Kite yon Reply