आप एक नज़र में देख सकते हैं कि एक्सेल में कौन से फोंट उपलब्ध हैं
आप आसानी से सेल के लिए फॉन्ट का चयन कर सकते हैं। लेकिन इंस्टॉल किए गए फोंट की सूची लंबी है। यदि आप किसी डिस्प्ले के लिए सही फॉन्ट की तलाश में हैं या यदि आप फोंट के साथ थोड़ा प्रयोग करना चाहते हैं, तो मैक्रो आपकी मदद करेगा।
यदि आप किसी नई कार्यपुस्तिका के स्तंभ A में सभी उपलब्ध फ़ॉन्ट सूचीबद्ध करना चाहते हैं, तो निम्न मैक्रो का उपयोग करें:
उप फ़ॉन्ट दर्ज करें ()
मंद फ़ॉन्ट सूची CommandBarControl के रूप में, काउंटर के रूप में पूर्णांक
एप्लिकेशन.स्क्रीनअपडेटिंग = गलत
कार्यपुस्तिकाएँ।जोड़ें
फ़ॉन्ट सूची सेट करें = Application.CommandBars.FindControl (आईडी: = १७२८)
काउंटर के लिए = 1 फ़ॉन्ट सूची के लिए। लिस्टकाउंट
कोशिकाओं के साथ (काउंटर, 1)
.Value = फ़ॉन्ट सूची। सूची (काउंटर)
.Font.Name = फ़ॉन्ट सूची। सूची (काउंटर)
के साथ समाप्त करना
अगला काउंटर
कॉलम (1) .AutoFit
एप्लिकेशन.स्क्रीनअपडेटिंग = सही
अंत उप
एक्सेल कोशिकाओं में प्रत्येक फ़ॉन्ट का नाम दर्ज करता है और तुरंत उपयुक्त फ़ॉन्ट में सेल को प्रारूपित करता है। निम्नलिखित चित्रण दिखाता है कि यह कैसा दिख सकता है: