Dacă în ultima Ziua Îndrăgostiților i-ai dat deja iubitei tale haine de blană de ghepard, iar cu un an înainte – iPhone 7, și te întrebi la ce să te mai gândești, atunci îți pot oferi o opțiune:
Este nevoie de 2 minute pentru a face acest lucru.
Deschideți Excel, accesați fila Inserare – Forme (Inserare — Forme) și alege o inimă:
O desenăm pe o foaie, introducem un text emoționant în interior, îl formatăm corespunzător:
Pentru o mai mare naturalețe, adăugați un efect 3D pe filă Format – Efecte de formă (Format — Efecte forme):
Și atingerea finală – adăugați o macrocomandă pentru animație. Clic Alt + F11, în fereastra editorului Visual Basic care se deschide, inserați un nou modul gol prin meniu Inserare – Modul și copiați textul acestei macrocomenzi acolo:
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Acum + TimeSerial(0, 0, 0.1)) Next i End Sub Închideți Visual Basic Editor, faceți clic Alt + F8 și rulați macro-ul nostru. Voila! Iubiți – în extaz, voi – în sărutări, vacanța a fost un succes. Dacă persoana iubită nu apreciază, atunci cel puțin învață comenzile VBA pentru a lucra cu 3D 🙂