एक्सेल में टेक्स्ट एनिमेशन में महारत हासिल करें: दो सिद्ध तरीके

विधि 1 - स्क्रॉलिंग टेक्स्ट एनिमेशन

• Alt+F11 दबाकर विजुअल बेसिक विंडो खोलें।
• इन्सर्ट पर जाकर मॉड्यूल पर क्लिक करके एक नया मॉड्यूल इन्सर्ट करें।

• निम्न कोड कॉपी करें और नए मॉड्यूल में पेस्ट करें:

' स्क्रॉलिंग टेक्स्ट
Sub Start_Text_Scroll()
My_Value = ActiveSheet.Range("C4").Value
Final_Value = WorksheetFunction.Rept(My_Value, 1)
Do
For initial = 1 To Len(Final_Value)
Length = Len(Final_Value) - 1
DoEvents
For AA = 1 To 10000000
AA = AA + 1
Next
Range("B6") = Mid(Final_Value, initial, Length) & Left(Final_Value, initial - 1)
Next
Loop
End Sub

Sub Stop_Scrolling()
End
End Sub

️ कोड कैसे काम करता है?

• Start_Text_Scroll सबरूटीन सेल C4 में संग्रहीत टेक्स्ट को स्क्रॉल करता है।
• यह एक लूप बनाता है जो टेक्स्ट को बाएं से दाएं शिफ्ट करता है।
• AA का मान बदलकर गति समायोजित करें।
• स्क्रॉलिंग रोकने के लिए, Stop_Scrolling सबरूटीन का उपयोग करें।

• स्क्रॉलिंग शुरू और रोकने के लिए बटन जोड़ें:
  • इन्सर्ट टैब से आकार (जैसे आयत) इन्सर्ट करें।

• • एक आकार के अंदर स्क्रॉलिंग शुरू करें दर्ज करें।

• • इस आकार को Start_Text_Scroll मैक्रो असाइन करें।

• • OK पर क्लिक करें।

• • स्क्रॉलिंग रोकें बटन के लिए दोहराएं।

• टेक्स्ट संदेश को स्क्रॉल करना शुरू और रोकने के लिए बटनों का उपयोग करें।

विधि 2 - ब्लिंकिंग एनिमेटेड टेक्स्ट

• टेक्स्ट बॉक्स बनाएं
  • इन्सर्ट टैब पर जाएं और टेक्स्ट चुनें और टेक्स्ट बॉक्स पर क्लिक करें।

• • अपनी पसंद के आकार का एक टेक्स्ट बॉक्स बनाएं।

• • वह टेक्स्ट दर्ज करें जिसे आप ब्लिंक करवाना चाहते हैं।

• खाली टेक्स्ट बॉक्स जोड़ें
  • समान आकार और आकृति के अतिरिक्त टेक्स्ट बॉक्स बनाएं।

• टेक्स्ट बॉक्स का नाम बदलें
  • टेक्स्ट बॉक्स का नाम इस प्रकार बदलें: TextBox 1, TextBox 2, आदि।

• टेक्स्ट बॉक्स ओवरले करें
  • सभी टेक्स्ट बॉक्स को इस तरह व्यवस्थित करें कि वे ओवरलैप हों और एक ही बॉक्स के रूप में दिखाई दें।

• VBA कोड
  • Alt+F11 दबाकर VBA एडिटर खोलें।
  • एक नया मॉड्यूल इन्सर्ट करें (इन्सर्ट > मॉड्यूल)।

• निम्न कोड दर्ज करें:

Sub Blink()
On Error GoTo skip
Do While Range("B4").Value = "Blink"
For txtbx = 1 To 5
ActiveSheet.Shapes("TextBox " & txtbx).ZOrder msoBringToFront
DoEvents
Next txtbx
Loop
skip:
ActiveSheet.Shapes("TextBox 1").ZOrder msoBringToFront
Exit Sub
End Sub

️ कोड कैसे काम करता है?

• Blink सबरूटीन ZOrder कमांड का उपयोग करके टेक्स्ट बॉक्स को एक-एक करके सामने लाता है ( TextBox 1 से TextBox 5 तक)।
• एरर हैंडलिंग सुनिश्चित करता है कि पहला टेक्स्ट बॉक्स दृश्यमान रहे।

• वर्कशीट कोड
  • वर्कशीट कोड में, दर्ज करें:

Private Sub Worksheet_Change(ByVal Tgt As Range)
If Tgt = Range("B4") Then
Call Blink
End If
End Sub

️ कोड कैसे काम करता है?

• जब सेल B4 में डेटा डाला जाता है, तो एक्सेल Blink मॉड्यूल को कॉल करता है।

याद रखने योग्य बातें

• दूसरी विधि में, सुचारू एनिमेशन के लिए टेक्स्ट बॉक्स को सही ढंग से नाम बदलें और अलाइन करना याद रखें

प्रैक्टिस वर्कबुक डाउनलोड करें

आप यहां से प्रैक्टिस वर्कबुक डाउनलोड कर सकते हैं:

संबंधित लेख

• एक्सेल में एनिमेटेड बार चार्ट रेस कैसे बनाएं
• एक्सेल में एनिमेटेड चार्ट कैसे बनाएं
• यूजरफॉर्म में VBA एनिमेशन

मुफ्त एडवांस्ड एक्सेल अभ्यास समाधान के साथ प्राप्त करें!