हाइपरलिंक हटाएं - वीबीए कोड उदाहरण

एक पत्रक से सभी हाइपरलिंक हटाएं

निम्न कोड पत्रक1 से सभी हाइपरलिंक हटा देता है:

12345

उप DeleteHyperLinks ()पत्रक1.हाइपरलिंक्स।हटाएंअंत उप

और यदि आपको पुन: प्रयोज्य उप दिनचर्या की आवश्यकता नहीं है, बल्कि एक बार ठीक करने की आवश्यकता है, तो तत्काल विंडो का उपयोग करें:

1. हाइपरलिंक्स को हटाने के लिए शीट का चयन करें

2. VBE खोलने के लिए Alt+F11 दबाएं

3. वीबीई मेन मेन्यू पर चुनें देखें->तत्काल विंडो

4. तत्काल विंडो में निम्नलिखित कोड पेस्ट करें और एंटर दबाएं

1	ActiveSheet.Hyperlinks.Delete