Nếu vào ngày Valentine năm ngoái, bạn đã tặng cho người phụ nữ thân yêu của mình một chiếc áo khoác lông cheetah và năm trước đó - iPhone 7, và bạn đang băn khoăn không biết nghĩ đến điều gì khác, thì tôi có thể đưa ra một lựa chọn:
Phải mất 2 phút để làm điều này.
Mở Excel, chuyển đến tab Chèn - Hình dạng (Chèn - Hình dạng) và chọn một trái tim:
Chúng tôi vẽ nó trên một trang tính, nhập một văn bản cảm động vào bên trong, định dạng nó một cách thích hợp:
Để tự nhiên hơn, hãy thêm hiệu ứng 3D trên tab Định dạng - Hiệu ứng hình dạng (Định dạng - Hiệu ứng hình dạng):
Và bước cuối cùng - thêm macro cho hoạt ảnh. Nhấp chuột Alt + F11, trong cửa sổ trình soạn thảo Visual Basic mở ra, hãy chèn một mô-đun trống mới thông qua trình đơn Chèn - Mô-đun và sao chép văn bản của macro này vào đó:
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)) Tiếp theo i End Sub Đóng Visual Basic Editor, bấm Alt + F8 và chạy macro của chúng tôi. Thì đấy! Người yêu dấu - trong sự ngây ngất, bạn - trong nụ hôn, kỳ nghỉ đã thành công. Nếu người thân của bạn không đánh giá cao nó, thì ít nhất hãy học các lệnh VBA để làm việc với 3D 🙂