If on the last Valentine’s Day you already gave your beloved woman a cheetah fur coat, and the year before last – iPhone 7, and you are wondering what else to think of, then I can offer an option:
It takes 2 minutes to do this.
Open Excel, go to the tab Insert – Shapes (Insert — Shapes) and choose a heart:
We draw it on a sheet, enter a touching text inside, format it appropriately:
For greater naturalness, add a 3D effect on the tab Format – Shape Effects (Format — Shapes Effects):
And the final touch – add a macro for animation. Click Alt + F11, in the Visual Basic editor window that opens, insert a new empty module through the menu Insert – Module and copy the text of this macro there:
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)) Next i End Sub Close the Visual Basic Editor, click Alt + F8 and run our macro. Voila! Beloved – in ecstasy, you – in kisses, the holiday was a success. If your loved one does not appreciate it, then at least learn the VBA commands for working with 3D 🙂