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

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

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

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

' Scrolling Text
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 असाइन करें इस आकार में मैक्रो.

• • ठीक क्लिक करें .

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

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

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

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

• • एक टेक्स्ट बॉक्स बनाएं आपके पसंदीदा साइज़ का.

• • पाठ दर्ज करें आप पलक झपकाना चाहते हैं.

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

• टेक्स्ट बॉक्स का नाम बदलें
  • टेक्स्ट बॉक्स का नाम इस प्रकार बदलें:टेक्स्टबॉक्स 1 , टेक्स्टबॉक्स 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

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

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

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

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

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

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

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

संबंधित लेख

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