اگر در آخرین روز ولنتاین قبلاً به زن مورد علاقه خود یک کت خز یوزپلنگ و سال قبل - آیفون 7 داده اید و نمی دانید چه چیز دیگری را باید در نظر بگیرید ، می توانم گزینه ای را ارائه دهم:
برای انجام این کار 2 دقیقه زمان لازم است.
اکسل را باز کنید، به تب بروید درج - اشکال (درج - اشکال) و یک قلب انتخاب کن:
ما آن را روی یک برگه می کشیم، یک متن لمسی را در داخل وارد می کنیم، آن را به طور مناسب قالب بندی می کنیم:
برای طبیعی بودن بیشتر، یک افکت سه بعدی روی برگه اضافه کنید قالب - جلوه های شکل (فرمت - جلوه های شکل):
و آخرین لمس - اضافه کردن یک ماکرو برای انیمیشن. کلیک Alt + F11، در پنجره ویرایشگر ویژوال بیسیک که باز می شود، یک ماژول خالی جدید را از طریق منو وارد کنید درج - ماژول و متن این ماکرو را در آنجا کپی کنید:
Sub Heart() برای i = 1 تا 3000 با ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 پایان با Application.صبر کنید (اکنون + TimeSerial(0, 0, 0.1)) Next i End Sub ویرایشگر ویژوال بیسیک را ببندید، کلیک کنید Alt + F8 و ماکرو خود را اجرا کنید. وویلا! محبوب - در خلسه، شما - در بوسه ها، تعطیلات موفقیت آمیز بود. اگر کسی که دوستش دارید قدردانی نمی کند، حداقل دستورات VBA را برای کار با سه بعدی یاد بگیرید 🙂