वीबीए का उपयोग करके चार्ट कैसे हटाएं (उदाहरण के साथ)

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

विधि 1: सक्रिय शीट से सभी ग्राफ़िक्स हटाएँ

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

यह विशेष मैक्रो एक्सेल में वर्तमान में सक्रिय शीट से सभी चार्ट हटा देगा।

विधि 2: संपूर्ण कार्यपुस्तिका से सभी चार्ट हटाएँ

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

यह विशेष मैक्रो संपूर्ण Excel कार्यपुस्तिका की प्रत्येक शीट से सभी चार्ट हटा देगा।

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में प्रत्येक विधि का उपयोग कैसे करें।

उदाहरण 1: सक्रिय शीट से सभी ग्राफ़िक्स हटाएँ

मान लीजिए हमारे पास निम्नलिखित एक्सेल शीट है जिसमें दो चार्ट हैं:

हम इस शीट से सभी चार्ट हटाने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि दोनों चार्ट शीट से हटा दिए गए हैं।

उदाहरण 2: संपूर्ण कार्यपुस्तिका से सभी चार्ट हटा दें

मान लीजिए कि हमारी एक्सेल वर्कबुक में एक और शीट है जिसमें दो और चार्ट हैं:

हम कार्यपुस्तिका की दोनों शीटों से सभी ग्राफ़िक्स को हटाने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

एक बार यह मैक्रो निष्पादित हो जाने पर, दोनों शीटों के सभी ग्राफ़िक्स हटा दिए जाएंगे:

ध्यान दें कि इस उदाहरण में हमने केवल दो शीटों से चार्ट हटाए हैं, लेकिन यह मैक्रो किसी Excel कार्यपुस्तिका के साथ काम करेगा जिसमें किसी भी संख्या में शीट हों।

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

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

वीबीए: सेल वैल्यू के आधार पर पंक्तियों को कैसे हटाएं
वीबीए: यदि नाम में विशिष्ट पाठ है तो शीट को कैसे हटाएं
वीबीए: फ़ाइलें कैसे हटाएं