Če ste na zadnje valentinovo že podarili svoji ljubljeni gepardov krznen plašč, predlani pa iPhone 7 in se sprašujete, kaj bi si še omislili, potem lahko ponudim možnost:
To traja 2 minuti.
Odprite Excel, pojdite na zavihek Vstavi – oblike (Vstavi — Oblike) in izberi srce:
Narišemo ga na list, notri vnesemo ganljivo besedilo, ga ustrezno oblikujemo:
Za večjo naravnost zavihku dodajte 3D učinek Oblika – učinki oblike (Oblika — Učinki oblik):
In zadnji dotik – dodajte makro za animacijo. Kliknite Alt + F11, v oknu urejevalnika Visual Basic, ki se odpre, prek menija vstavite nov prazen modul Vstavi – Modul in tja kopirajte besedilo tega makra:
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 (Zdaj + TimeSerial(0, 0, 0.1)) Next i End Sub Zaprite urejevalnik Visual Basic, kliknite Alt + F8 in zaženite naš makro. Voila! Ljubljeni – v ekstazi, ti – v poljubih, praznik je uspel. Če vaši ljubljeni tega ne cenijo, potem se vsaj naučite VBA ukazov za delo s 3D 🙂