Vba में ज़ूम का उपयोग कैसे करें (उदाहरण के साथ)

आप VBA का उपयोग करके Excel में ज़ूम निर्दिष्ट करने के लिए निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: ज़ूम को एक विशिष्ट मात्रा पर सेट करें

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

यह विशेष मैक्रो वर्तमान में सक्रिय शीट के लिए ज़ूम को 150% पर सेट करेगा।

विधि 2: ज़ूम को वर्तमान में चयनित सीमा पर सेट करें

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

यह विशेष मैक्रो वर्तमान में चयनित रेंज पर ज़ूम इन करेगा।

विधि 3: ज़ूम को एक विशिष्ट सीमा पर सेट करें

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

यह विशेष मैक्रो C1:E5 श्रेणी पर ज़ूम इन करेगा।

निम्नलिखित उदाहरण दिखाते हैं कि निम्नलिखित एक्सेल शीट के साथ अभ्यास में प्रत्येक विधि का उपयोग कैसे किया जाए जिसमें विभिन्न बास्केटबॉल खिलाड़ियों पर डेटा का एक सेट शामिल है:

उदाहरण 1: ज़ूम को एक विशिष्ट मात्रा पर सेट करें

हम वर्तमान में सक्रिय शीट के ज़ूम को 150% पर सेट करने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

जब हम इस मैक्रो को चलाते हैं, तो शीट में स्वचालित रूप से 150% का ज़ूम होगा:

ध्यान दें कि डिफ़ॉल्ट ज़ूम 100 है।

ज़ूम को 100 से अधिक मान पर सेट करके, हम ज़ूम करते हैं।

ज़ूम आउट करने के लिए, ज़ूम को 100 से कम मान पर सेट करें।

उदाहरण 2: ज़ूम को वर्तमान में चयनित सीमा पर सेट करें

वर्तमान में सक्रिय शीट के ज़ूम को वर्तमान में चयनित सीमा पर सेट करने के लिए हम निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

उदाहरण के लिए, मान लीजिए कि हम श्रेणी A7:C11 चुनते हैं।

जब हम इस मैक्रो को चलाते हैं, तो शीट स्वचालित रूप से इस सीमा तक ज़ूम हो जाएगी:

उदाहरण 3: ज़ूम को एक विशिष्ट सीमा पर सेट करें

वर्तमान में सक्रिय शीट के ज़ूम को C1:E5 श्रेणी पर सेट करने के लिए हम निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

जब हम इस मैक्रो को चलाते हैं, तो शीट स्वचालित रूप से इस सीमा तक ज़ूम हो जाएगी:

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

VBA का उपयोग करके किसी श्रेणी में पंक्तियों की संख्या की गणना कैसे करें
VBA का उपयोग करके स्प्रेडशीट को कैसे नेविगेट करें
VBA का उपयोग करके सभी पंक्तियाँ कैसे दिखाएँ