Jos annoit jo viime ystävänpäivänä rakkaallesi naisellesi geparditurkin ja toissa vuonna iPhone 7:n ja mietit mitä muuta ajatella, niin voin tarjota vaihtoehdon:
Tämä kestää 2 minuuttia.
Avaa Excel, siirry välilehdelle Insert – Muodot (Lisää - Muodot) ja valitse sydän:
Piirrämme sen arkille, kirjoitamme koskettavan tekstin sisään, muotoilemme sen asianmukaisesti:
Lisää luonnollisuutta lisäämällä välilehteen 3D-tehoste Muoto – Muototehosteet (Muoto — Muodon tehosteet):
Ja viimeinen silaus – lisää makro animaatiota varten. Klikkaus Alt + F11, lisää avautuvassa Visual Basic -editoriikkunassa uusi tyhjä moduuli valikon kautta Insert – moduuli ja kopioi tämän makron teksti sinne:
Sub Heart() For i = 1 - 3000 ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Lopeta Application.Wait (nyt) + TimeSerial(0, 0, 0.1)) Seuraava i End Sub Sulje Visual Basic Editor, napsauta Alt + F8 ja suorita makromme. Voila! Rakas – hurmiossa, sinä – suudelmissa, loma oli onnistunut. Jos rakkaasi ei arvosta sitä, opettele ainakin VBA-komennot 3D:n kanssa työskentelemiseen 🙂