Ja jau pagājušajā Valentīndienā tu savai mīļotajai sievietei uzdāvināji geparda kažoku, bet aizpērn – iPhone 7, un domā, ko vēl domāt, tad varu piedāvāt variantu:
Lai to izdarītu, ir vajadzīgas 2 minūtes.
Atveriet programmu Excel, dodieties uz cilni Ieliktnis – formas (Ievietot — formas) un izvēlieties sirdi:
Mēs to uzzīmējam uz lapas, ievadām tajā aizkustinošu tekstu, atbilstoši formatējam:
Lai iegūtu lielāku dabiskumu, pievienojiet cilnei 3D efektu Formāts — formas efekti (Formāts — formu efekti):
Un pēdējais pieskāriens — pievienojiet animācijas makro. Klikšķis Alt+F11Atvērtajā Visual Basic redaktora logā izvēlnē ievietojiet jaunu tukšu moduli Ievietot - modulis un kopējiet tur šī makro tekstu:
Sub Heart() For i = 1 līdz 3000 ar ActiveSheet.Shapes.Range(Array("Сердце 1")).TrīsD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Beigās ar Application.Wait (tagad) + TimeSerial(0, 0, 0.1)) Nākamais i Beigt apakš Aizveriet Visual Basic redaktoru, noklikšķiniet uz Alt+F8 un palaist mūsu makro. Voila! Mīļie – sajūsmā, tu – skūpstos, svētki izdevās. Ja tavs mīļotais to nenovērtē, tad vismaz apgūsti VBA komandas darbam ar 3D 🙂