वर्कशीट में ज़ूम इन और आउट - वीबीए कोड उदाहरण

एक्टिवविंडो.ज़ूम

वर्कशीट के ज़ूम को बदलने के लिए आप वीबीए का उपयोग कर सकते हैं। ActiveWindow के ज़ूम को 50% में बदलने के लिए यहां कोड दिया गया है:

1	एक्टिवविंडो.ज़ूम = 50

सभी वर्कशीट पर ज़ूम बदलें

मानक ज़ूम सेट करने के लिए आप अपनी कार्यपुस्तिका में सभी कार्यपत्रकों के माध्यम से लूप भी कर सकते हैं। निम्नलिखित मैक्रो सभी कार्यपत्रकों के लिए ज़ूम को 50% पर सेट करेगा:

123456789101112131415161718192021

सब ज़ूमऑल ()वर्कशीट के रूप में डिम WSएप्लिकेशन.स्क्रीनअपडेटिंग = गलतवर्कशीट में प्रत्येक ws के लिएws.सक्रिय करेंएक्टिवविंडो.ज़ूम = 50अगलाएप्लिकेशन.स्क्रीनअपडेटिंग = सहीअंत उप

जूम जूम

और अंत में एक जादुई रूप से बढ़ती वर्कशीट। निम्न मैक्रो, शीट1 के लिए ज़ूम के माध्यम से लूप करेगा, 10% से 200% तक जा रहा है, 10% से बढ़ रहा है, परिवर्तनों के बीच एक सेकंड को रोक रहा है, और फिर यह शीट 1 को उसकी मूल स्थिति में वापस लाएगा।

1234567891011121314151617181920212223242526272829303132333435363738

उप ज़ूमज़ूम ()मंद x पूर्णांक के रूप में 'लूप के लिए चर'डिम ओरिजिनल जूम अस इंटीजर 'वेरिएबल फॉर ओरिजिनल जूमशीट 1. सक्रिय करें 'चलो शीट 1 के साथ काम करते हैं'ओरिजिनलज़ूम = एक्टिवविंडो.ज़ूम 'वर्तमान ज़ूम प्राप्त करें''लूप थ्रू जूम १० से २०० बटा १०x = 1 से 20 . के लिएएक्टिवविंडो.ज़ूम = x * 10आवेदन। अभी प्रतीक्षा करें + टाइमवैल्यू ("00:00:01")अगला एक्स'मूल ज़ूम पुनर्स्थापित करें'एक्टिवविंडो.ज़ूम = ओरिजिनलज़ूमअंत उप