Ak ste už na posledného Valentína darovali svojej milovanej žene kožuch z geparda a predminulý rok – iPhone 7 a premýšľate, čo ešte vymyslieť, potom vám môžem ponúknuť možnosť:
Trvá to 2 minúty.
Otvorte Excel, prejdite na kartu Vložiť – tvary (Vložiť — tvary) a vyberte si srdce:
Nakreslíme ho na hárok, zadáme doň dojemný text, vhodne ho naformátujeme:
Pre väčšiu prirodzenosť pridajte na záložku 3D efekt Formát – Tvarové efekty (Formát – efekty tvarov):
A posledný dotyk – pridajte makro na animáciu. Kliknite Alt + F11, v okne editora Visual Basic, ktoré sa otvorí, vložte cez ponuku nový prázdny modul Vložiť – Modul a skopírujte tam text tohto makra:
Sub Heart() For i = 1 až 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Koniec s aplikáciou. Počkajte (teraz + TimeSerial(0, 0, 0.1)) Ďalej a Koniec Sub Zatvorte editor jazyka Visual Basic, kliknite Alt + F8 a spustite naše makro. Voila! Milovaní – v extáze, vy – v bozkoch, dovolenka sa vydarila. Ak to váš drahý neocení, tak sa naučte aspoň príkazy VBA pre prácu s 3D 🙂