Jeśli w ostatnie Walentynki podarowałeś już swojej ukochanej kobiecie futro z geparda, a przed rokiem – iPhone’a 7 i zastanawiasz się, o czym jeszcze myśleć, to mam do zaoferowania opcję:
Zajmuje to 2 minuty.
Otwórz Excel, przejdź do zakładki Wstaw – Kształty (Wstaw — Kształty) i wybierz serce:
Rysujemy go na kartce, wpisujemy w środku wzruszający tekst, odpowiednio go formatujemy:
Aby uzyskać większą naturalność, dodaj na zakładce efekt 3D Format – Efekty kształtu (Format — Efekty kształtów):
I ostatni szlif – dodaj makro do animacji. Kliknij Alt + F11, w oknie edytora Visual Basic, które się otworzy, wstaw nowy pusty moduł za pomocą menu Wstaw – moduł i skopiuj tam tekst tego makra:
Sub Heart() For i = 1 do 3000 With ActiveSheet.Shapes.Range(Array("Serdzie 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Koniec z aplikacją.Wait (Teraz + TimeSerial(0, 0, 0.1)) Następny i Koniec Sub Zamknij Edytor Visual Basic, kliknij Alt + F8 i uruchom nasze makro. Voila! Umiłowani – w ekstazie, wy – w pocałunkach, wakacje zakończyły się sukcesem. Jeśli ukochana osoba tego nie docenia, to przynajmniej naucz się poleceń VBA do pracy z 3D 🙂