जर शेवटच्या व्हॅलेंटाईन डे वर तुम्ही तुमच्या लाडक्या स्त्रीला चित्ताचा फर कोट दिला असेल, आणि मागील वर्षी - आयफोन 7, आणि तुम्ही विचार करत असाल की आणखी काय विचार करावा, तर मी एक पर्याय देऊ शकतो:
हे करण्यासाठी 2 मिनिटे लागतात.
एक्सेल उघडा, टॅबवर जा घाला - आकार (घाला - आकार) आणि हृदय निवडा:
आम्ही ते एका शीटवर काढतो, आत एक स्पर्श करणारा मजकूर एंटर करा, ते योग्यरित्या स्वरूपित करा:
अधिक नैसर्गिकतेसाठी, टॅबवर 3D प्रभाव जोडा स्वरूप - आकार प्रभाव (स्वरूप - आकार प्रभाव):
आणि अंतिम स्पर्श - अॅनिमेशनसाठी मॅक्रो जोडा. क्लिक करा Alt + F11, उघडणाऱ्या व्हिज्युअल बेसिक एडिटर विंडोमध्ये, मेनूमधून नवीन रिकामे मॉड्यूल घाला घाला - मॉड्यूल आणि या मॅक्रोचा मजकूर तेथे कॉपी करा:
ActiveSheet.Shapes.Range(Array("Сердце 1")) सह i = 3000 ते 1 साठी Sub Heart()).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 ऍप्लिकेशनसह समाप्त. प्रतीक्षा करा (आता + TimeSerial(0, 0, 0.1)) पुढे i End Sub व्हिज्युअल बेसिक एडिटर बंद करा, क्लिक करा Alt + F8 आणि आमचा मॅक्रो चालवा. व्होइला! प्रिय - आनंदात, तू - चुंबनांमध्ये, सुट्टी यशस्वी झाली. जर तुमचा प्रिय व्यक्ती त्याची प्रशंसा करत नसेल, तर किमान 3D सह काम करण्यासाठी VBA आज्ञा जाणून घ्या 🙂