Als je op de laatste Valentijnsdag je geliefde vrouw al een cheetahbontjas hebt gegeven, en het jaar daarvoor - iPhone 7, en je vraagt je af waar je nog meer aan moet denken, dan kan ik je een optie aanbieden:
Het duurt 2 minuten om dit te doen.
Open Excel, ga naar het tabblad Invoegen – Vormen (Invoegen — Vormen) en kies een hart:
We tekenen het op een blad, voeren er een ontroerende tekst in en formatteren het op de juiste manier:
Voeg voor meer natuurlijkheid een 3D-effect toe op het tabblad Opmaak – Vormeffecten (Formaat — Vormeffecten):
En de laatste hand: voeg een macro toe voor animatie. Klik Alt + F11, in het Visual Basic-editorvenster dat wordt geopend, voegt u een nieuwe lege module in via het menu Invoegen – Module en kopieer de tekst van deze macro daar:
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 (Now + TimeSerial(0, 0, 0.1)) Volgende i End Sub
Sluit de Visual Basic Editor, klik op Alt + F8 en voer onze macro uit. Voila! Geliefden - in extase, jij - in kussen, de vakantie was een succes. Als je geliefde het niet op prijs stelt, leer dan in ieder geval de VBA-commando's voor het werken met 3D 🙂