Kui juba eelmisel sõbrapäeval kinkisite oma armastatud naisele gepardist kasuka ja üle-eelmisel aastal iPhone 7 ning mõtlete, mida veel mõelda, siis saan pakkuda ühe variandi:
Selleks kulub 2 minutit.
Avage Excel, minge vahekaardile Sisesta – kujundid (Sisesta – kujundid) ja vali süda:
Joonistame selle lehele, sisestame puudutava teksti, vormindame selle sobivalt:
Suurema loomulikkuse saavutamiseks lisage vahekaardile 3D-efekt Vorming – kujundiefektid (Vorming – kujundite efektid):
Ja viimane lihv – lisage animatsiooni jaoks makro. Klõpsake Alt + F11, avanevas Visual Basicu redaktori aknas sisestage menüü kaudu uus tühi moodul Sisesta – moodul ja kopeerige selle makro tekst sinna:
Sub Heart() For i = 1 kuni 3000 ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Lõpetage rakendusega.Oodake (nüüd) + TimeSerial(0, 0, 0.1)) Järgmine i End Sub
Sulgege Visual Basicu redaktor, klõpsake Alt + F8 ja käivitage meie makro. Voila! Kallis – ekstaasis, sina – suudlustes, puhkus oli edukas. Kui teie kallim seda ei hinda, siis õppige vähemalt VBA käsud 3D-ga töötamiseks 🙂