Pokud jste už na posledního Valentýna darovali své milované ženě kožíšek z geparda a předloni – iPhone 7 a přemýšlíte, co ještě vymyslet, pak vám nabízím možnost:
To trvá 2 minuty.
Otevřete Excel, přejděte na kartu Vložka – tvary (Vložit — tvary) a vyberte si srdce:
Nakreslíme jej na list, zadáme do něj dojemný text, vhodně naformátujeme:
Pro větší přirozenost přidejte na záložku 3D efekt Formát – Tvarové efekty (Formát – efekty tvarů):
A poslední dotek – přidejte makro pro animaci. Klikněte Alt + F11, v okně editoru jazyka Visual Basic, které se otevře, vložte přes nabídku nový prázdný modul Vložit – Modul a zkopírujte tam text tohoto makra:
Sub Heart() For i = 1 až 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Konec s aplikací.Počkejte (nyní) + TimeSerial(0, 0, 0.1)) Další i End Sub Zavřete editor jazyka Visual Basic, klepněte na tlačítko Alt + F8 a spusťte naše makro. Voila! Milovaní – v extázi, ty – v polibcích, dovolená se vydařila. Pokud to váš blízký neocení, tak se naučte alespoň příkazy VBA pro práci s 3D 🙂