Om du redan den senaste alla hjärtans dag gav din älskade kvinna en gepardpäls, och förra året – iPhone 7, och du undrar vad mer du ska tänka på, så kan jag erbjuda ett alternativ:
Det tar 2 minuter att göra detta.
Öppna Excel, gå till fliken Infoga – Former (Infoga — Former) och välj ett hjärta:
Vi ritar den på ett ark, anger en rörande text inuti, formaterar den på lämpligt sätt:
För större naturlighet, lägg till en 3D-effekt på fliken Format – Formeffekter (Format — Shapes Effects):
Och sista handen – lägg till ett makro för animering. Klick Alt + F11, i Visual Basic-redigeringsfönstret som öppnas, infoga en ny tom modul genom menyn Infoga – Modul och kopiera texten till detta makro dit:
Sub Heart() För i = 1 Till 3000 Med ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Sluta med Application.Wait (Nu) + TimeSerial(0, 0, 0.1)) Next i End Sub Stäng Visual Basic Editor, klicka Alt + F8 och kör vårt makro. Voila! Älskade – i extas, du – i kyssar var semestern en succé. Om din älskade inte uppskattar det, lär dig åtminstone VBA-kommandona för att arbeta med 3D 🙂