Ha az elmúlt Valentin napon már gepárdbundát, tavalyelőtt pedig iPhone 7-et ajándékozott szeretett nőjének, és azon töpreng, mire gondolhat még, akkor tudok egy lehetőséget ajánlani:
Ehhez 2 perc szükséges.
Nyissa meg az Excelt, lépjen a lapra Beszúrás – Alakzatok (Beszúrás — Alakzatok) és válassz egy szívet:
Lerajzoljuk egy lapra, beleírunk egy megható szöveget, megfelelően formázzuk:
A nagyobb természetesség érdekében adjon hozzá egy 3D effektust a laphoz Formátum – Alakhatások (Formátum – Alakhatások):
És az utolsó simítás – adjon hozzá egy makrót az animációhoz. Kattintson Alt + F11, a megnyíló Visual Basic szerkesztő ablakban a menün keresztül szúrjon be egy új üres modult Beszúrás – Modul és másold oda ennek a makrónak a szövegét:
Sub Heart() For i = 1-től 3000-ig ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Befejezés: Application.Wait (most + TimeSerial(0, 0, 0.1)) Következő i End Sub Zárja be a Visual Basic szerkesztőt, kattintson a gombra Alt + F8 és futtassuk a makrónkat. Voálá! Szeretteim – extázisban, te – csókban, jól sikerült az ünnep. Ha kedvese nem értékeli, akkor legalább tanulja meg a VBA-parancsokat a 3D-vel való munkavégzéshez 🙂