यदि पिछले वेलेंटाइन डे पर आपने अपनी प्यारी महिला को पहले से ही एक चीता फर कोट दिया था, और आखिरी साल पहले - आईफोन 7, और आप सोच रहे हैं कि और क्या सोचना है, तो मैं एक विकल्प प्रदान कर सकता हूं:
ऐसा करने में 2 मिनट का समय लगता है।
एक्सेल खोलें, टैब पर जाएं सम्मिलित करें - आकार (सम्मिलित करें - आकार) और एक दिल चुनें:
हम इसे एक शीट पर खींचते हैं, अंदर एक स्पर्श करने वाला पाठ दर्ज करते हैं, इसे उचित रूप से प्रारूपित करते हैं:
अधिक स्वाभाविकता के लिए, टैब पर 3D प्रभाव जोड़ें प्रारूप - आकार प्रभाव (प्रारूप - आकार प्रभाव):
और अंतिम स्पर्श - एनिमेशन के लिए मैक्रो जोड़ें। क्लिक ऑल्ट + F11, खुलने वाली Visual Basic संपादक विंडो में, मेनू के माध्यम से एक नया खाली मॉड्यूल डालें सम्मिलित करें - मॉड्यूल और इस मैक्रो के टेक्स्ट को वहां कॉपी करें:
सब हार्ट () i = 1 से 3000 के लिए ActiveSheet.Shapes.Range(Array("Сердце 1")) के साथ।ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End with Application। प्रतीक्षा करें (अब + TimeSerial(0, 0, 0.1)) अगला i End Sub
विजुअल बेसिक एडिटर को बंद करें, क्लिक करें ऑल्ट + F8 और हमारे मैक्रो को चलाएं। वोइला! प्रिय - परमानंद में, आप - चुंबन में, छुट्टी एक सफलता थी। यदि आपका प्रिय व्यक्ति इसकी सराहना नहीं करता है, तो कम से कम 3D . के साथ काम करने के लिए VBA कमांड सीखें