Ako ste već na prošlo Valentinovo svojoj voljenoj ženi poklonili bundu od geparda, a pretprošle godine – iPhone 7, i pitate se što još smisliti, onda vam mogu ponuditi opciju:
Za to su potrebne 2 minute.
Otvorite Excel, idite na karticu Umetanje – oblici (Umetni — Oblici) i izaberi srce:
Crtamo ga na listu, unosimo dirljiv tekst unutra, oblikujemo ga na odgovarajući način:
Za veću prirodnost dodajte 3D efekt na karticu Format – Efekti oblika (Format — Efekti oblika):
I posljednji detalj - dodajte makronaredbu za animaciju. Klik Alt + F11, u prozoru uređivača Visual Basic koji se otvori umetnite novi prazan modul kroz izbornik Umetak – Modul i tamo kopirajte tekst ove makronaredbe:
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Serdce 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Sada + TimeSerial(0, 0, 0.1)) Next i End Sub
Zatvorite Visual Basic Editor, kliknite Alt + F8 i pokrenite naš makro. Voila! Voljeni - u ekstazi, ti - u poljupcima, odmor je uspio. Ako vaš dragi to ne cijeni, onda barem naučite VBA naredbe za rad s 3D 🙂