Wenn Sie Ihrer geliebten Frau am letzten Valentinstag bereits einen Gepardenpelzmantel und vorletztes Jahr ein iPhone 7 geschenkt haben und sich fragen, woran Sie sonst noch denken sollen, dann habe ich eine Option:
Das dauert 2 Minuten.
Öffnen Sie Excel, gehen Sie zur Registerkarte Einfügen – Formen (Einfügen — Formen) und wähle ein Herz:
Wir zeichnen es auf ein Blatt, geben einen berührenden Text hinein, formatieren es entsprechend:
Fügen Sie für mehr Natürlichkeit einen 3D-Effekt auf der Registerkarte hinzu Format – Formeffekte (Format – Formeneffekte):
Und der letzte Schliff – fügen Sie ein Makro für die Animation hinzu. Klicken Alt + F11, fügen Sie im sich öffnenden Visual Basic-Editorfenster über das Menü ein neues leeres Modul ein Einfügen – Modul und kopiere den Text dieses Makros dorthin:
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 Schließen Sie den Visual Basic-Editor, klicken Sie auf Alt + F8 und führen Sie unser Makro aus. Voila! Geliebte – in Ekstase, du – in Küssen, der Urlaub war ein voller Erfolg. Wenn Ihr Liebling es nicht schätzt, dann lernen Sie zumindest die VBA-Befehle für die Arbeit mit 3D 🙂