Ako ste na posljednje Valentinovo već poklonili svojoj voljenoj ženi bundu od geparda, a pretprošle godine – iPhone 7, i pitate se šta još da smislite, onda vam mogu ponuditi opciju:
Za ovo je potrebno 2 minute.
Otvorite Excel, idite na karticu Umetak – Oblici (Umetnuti — Oblici) i izaberi srce:
Nacrtamo ga na listu, unesemo dirljiv tekst unutra, formatiramo ga na odgovarajući način:
Za veću prirodnost dodajte 3D efekat na karticu Format – Efekti oblika (Format — Efekti oblika):
I završni dodir – dodajte makro za animaciju. Kliknite Alt + F11, u prozor uređivača Visual Basica koji se otvori, umetnite novi prazan modul kroz meni Umetak – Modul i kopirajte tekst ovog makroa tamo:
Sub Heart() Za i = 1 do 3000 sa ActiveSheet.Shapes.Range(Niz("Serdce 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Završite sa aplikacijom.Čekajte (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, praznik je uspeo. Ako vaša voljena osoba to ne cijeni, onda barem naučite VBA komande za rad sa 3D 🙂