Jei praėjusią Valentino dieną mylimai moteriai jau padovanojote gepardo kailinį, o užpernai – iPhone 7 ir galvojate, ką dar galvoti, tuomet galiu pasiūlyti variantą:
Tai užtrunka 2 minutes.
Atidarykite „Excel“, eikite į skirtuką Intarpas – formos (Įterpti – formos) ir pasirinkite širdį:
Nupiešiame jį ant lapo, į vidų įvedame liečiantį tekstą, tinkamai suformatuojame:
Norėdami didesnio natūralumo, skirtuke pridėkite 3D efektą Formatas – formos efektai (Formatas – formų efektai):
Ir paskutinis prisilietimas – pridėkite makrokomandą animacijai. Spustelėkite Alt + F11, atsidariusiame Visual Basic redaktoriaus lange įterpkite naują tuščią modulį per meniu Įterpimas – modulis ir nukopijuokite šios makrokomandos tekstą ten:
Sub Heart() Skirta i = 1 iki 3000 su ActiveSheet.Shapes.Range(Array("Сердце 1")).TrysD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Pabaiga su Application.Wait (dabar) + TimeSerial(0, 0, 0.1)) Kitas i Pabaigos sub Uždarykite Visual Basic redaktorių, spustelėkite Alt + F8 ir paleiskite mūsų makrokomandą. Voila! Mylimasis – ekstazėje, tu – bučiniuose, šventė pavyko. Jei jūsų mylimasis to neįvertina, bent jau išmokite VBA komandas darbui su 3D 🙂