תלת מימד באקסל

אם ביום האהבה האחרון כבר נתת לאישה האהובה שלך מעיל פרווה של צ'יטה, ובשנה שעברה - אייפון 7, ואתה תוהה על מה עוד לחשוב, אז אני יכול להציע אופציה:

זה לוקח 2 דקות לעשות את זה.

פתח את Excel, עבור ללשונית הוספה - צורות (הוספה - צורות) ובחר לב:

אנו מציירים אותו על גיליון, מכניסים טקסט נוגע ללב, מעצבים אותו כראוי:

לטבעיות רבה יותר, הוסף אפקט תלת מימד על הכרטיסייה פורמט - אפקטי צורה (פורמט - אפקטים של צורות):

והנגיעה האחרונה - הוסף מאקרו לאנימציה. נְקִישָׁה Alt + F11, בחלון עורך Visual Basic שנפתח, הכנס מודול ריק חדש דרך התפריט הכנס - מודול והעתק לשם את הטקסט של המאקרו הזה:

Sub Heart() עבור i = 1 עד 3000 עם ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (עכשיו + TimeSerial(0, 0, 0.1)) Next i End Sub  

סגור את עורך Visual Basic, לחץ Alt + F8 ולהפעיל את המאקרו שלנו. וואלה! אהובה - באקסטזה, אתה - בנשיקות, החג היה מוצלח. אם יקירכם לא מעריך את זה, אז לפחות למד את פקודות VBA לעבודה עם תלת מימד 🙂