As jy op die laaste Valentynsdag reeds vir jou geliefde vrou 'n jagluiperd-pelsjas gegee het, en voorverlede jaar – iPhone 7, en jy wonder waaraan jy nog moet dink, dan kan ek 'n opsie bied:
Dit neem 2 minute om dit te doen.
Maak Excel oop, gaan na die oortjie Invoeging – Vorms (Voeg in – Vorms) en kies 'n hart:
Ons teken dit op 'n vel, voer 'n raak teks binne in, formateer dit toepaslik:
Vir groter natuurlikheid, voeg 'n 3D-effek by die oortjie Formaat – Vormeffekte (Formaat — Vormseffekte):
En die finale aanraking – voeg 'n makro by vir animasie. Klik Alt + F11, in die Visual Basic-redigeerdervenster wat oopmaak, voeg 'n nuwe leë module deur die spyskaart in Voeg in – Module en kopieer die teks van hierdie makro daarheen:
Sub Heart() Vir i = 1 tot 3000 Met ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Eindig met toepassing.Wag (nou) + TimeSerial(0, 0, 0.1)) Volgende i End Sub Maak die Visual Basic Editor toe, klik Alt + F8 en hardloop ons makro. Voila! Geliefde – in ekstase, jy – in soene was die vakansie 'n sukses. As jou geliefde dit nie waardeer nie, leer dan ten minste die VBA-opdragte om met 3D te werk 🙂