वीबीए में पाई चार्ट कैसे बनाएं (उदाहरण के साथ)

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

 SubCreatePieChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create pie chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlPie

End Sub

यह विशेष मैक्रो उपयोगकर्ता से एक इनपुट रेंज मांगेगा और फिर इनपुट रेंज का उपयोग करके स्वचालित रूप से एक पाई चार्ट तैयार करेगा और इसे वर्तमान सक्रिय सेल में स्थित चार्ट के ऊपरी बाएं कोने के साथ शीट 1 नामक शीट में डाल देगा।

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

उदाहरण: वीबीए में पाई चार्ट कैसे बनाएं

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

मान लीजिए कि हम इस डेटासेट का उपयोग करके पाई चार्ट बनाने के लिए VBA का उपयोग करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCreatePieChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create pie chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlPie

End Sub

इस मैक्रो को चलाने के लिए, हम एक्सेल में शीर्ष रिबन के साथ डेवलपर टैब पर क्लिक कर सकते हैं और फिर मैक्रोज़ पर क्लिक कर सकते हैं।

फिर हम CreatePieChart लेबल वाले पर क्लिक कर सकते हैं और फिर Run पर क्लिक कर सकते हैं:

एक बार जब हम रन पर क्लिक करते हैं, तो हमें अपने बार चार्ट के लिए इनपुट रेंज के लिए संकेत दिया जाएगा:

हम A1:B7 टाइप करेंगे, फिर OK दबाएंगे।

निम्नलिखित पाई चार्ट स्वचालित रूप से बनाया जाएगा और वर्तमान में सक्रिय सेल में स्थित चार्ट के ऊपरी बाएं कोने में प्रदर्शित किया जाएगा, जो सेल D2 होता है:

नोट : आप क्रमशः पाई चार्ट की चौड़ाई और ऊंचाई को समायोजित करने के लिए ChartObjects.Add() फ़ंक्शन में चौड़ाई और ऊंचाई तर्कों के मान बदल सकते हैं।

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

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

वीबीए में बार चार्ट कैसे बनाएं
VBA में मानों को कैसे पूर्णांकित करें
VBA में मानों को कैसे पूर्णांकित करें