Ef þú á síðasta Valentínusardegi gafst ástkærri konu þinni nú þegar blettatígurloðkápu, og árið áður - iPhone 7, og þú ert að velta fyrir þér hvað annað þú ættir að hugsa um, þá get ég boðið upp á valmöguleika:
Það tekur 2 mínútur að gera þetta.
Opnaðu Excel, farðu í flipann Sett inn - Form (Setja inn - form) og veldu hjarta:
Við teiknum það á blað, sláum inn snertandi texta inni, sniðum hann á viðeigandi hátt:
Til að fá meiri náttúruleika skaltu bæta við þrívíddaráhrifum á flipann Format - Shape Effects (Format — Shapes Effects):
Og lokasnertingin - bættu við fjölvi fyrir hreyfimyndir. Smellur Alt + F11, í Visual Basic ritstjóraglugganum sem opnast skaltu setja nýja tóma einingu í gegnum valmyndina Settu inn - Eining og afritaðu texta þessa fjölvi þangað:
Sub Heart() Fyrir i = 1 Til 3000 Með ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Nú) + TimeSerial(0, 0, 0.1)) Next i End Sub Lokaðu Visual Basic Editor, smelltu Alt + F8 og keyra macro okkar. Voila! Elsku – í alsælu, þú – í kossum, hátíðin heppnaðist vel. Ef ástvinur þinn kann ekki að meta það, lærðu þá að minnsta kosti VBA skipanirnar til að vinna með 3D 🙂