यदि अन्तिम भ्यालेन्टाइन डेमा तपाईंले पहिले नै आफ्नो प्रिय महिलालाई चित्ताको फर कोट दिनुभएको छ, र पछिल्लो वर्ष - आईफोन 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)) Next i End Sub भिजुअल बेसिक सम्पादक बन्द गर्नुहोस्, क्लिक गर्नुहोस् Alt + F8 र हाम्रो म्याक्रो चलाउनुहोस्। भोइला! प्रिय - आनन्द मा, तपाईं - चुम्बन मा, छुट्टी एक सफलता थियो। यदि तपाईंको प्रियजनले यसको कदर गर्दैन भने, कम्तिमा 3D 🙂 सँग काम गर्न VBA आदेशहरू सिक्नुहोस्।