كيفية إنشاء مخطط دائري في vba (مع مثال)

يمكنك استخدام بناء الجملة الأساسي التالي لإنشاء مخطط دائري في Excel باستخدام 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

سيطلب هذا الماكرو المحدد من المستخدم نطاق إدخال ثم يقوم تلقائيًا بإنشاء مخطط دائري باستخدام نطاق الإدخال وإدراجه في الورقة التي تسمى Sheet1 مع وجود الزاوية اليسرى العليا من المخطط في الخلية النشطة حاليًا.

يوضح المثال التالي كيفية استخدام هذا الماكرو عمليًا.

مثال: كيفية إنشاء مخطط دائري في VBA

لنفترض أن لدينا مجموعة البيانات التالية في برنامج Excel والتي تحتوي على معلومات حول النقاط التي سجلها العديد من لاعبي كرة السلة:

لنفترض أننا نريد استخدام 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

لتشغيل هذا الماكرو، يمكننا النقر فوق علامة التبويب “المطور” الموجودة على الشريط العلوي في برنامج Excel ثم النقر فوق وحدات الماكرو .

يمكننا بعد ذلك النقر فوق الخيار المسمى CreatePieChart ثم النقر فوق “تشغيل” :

بمجرد النقر فوق “تشغيل” ، سيُطلب منا إدخال نطاق للمخطط الشريطي الخاص بنا:

سنكتب A1:B7 ، ثم نضغط OK .

سيتم تلقائيًا إنشاء المخطط الدائري التالي وعرضه بالزاوية العلوية اليسرى من المخطط الموجود في الخلية النشطة حاليًا، والتي تصادف أنها الخلية D2 :

ملاحظة : يمكنك تغيير قيم وسيطتي العرض والارتفاع في الدالة ChartObjects.Add() لضبط عرض المخطط الدائري وارتفاعه، على التوالي.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية إنشاء مخطط شريطي في VBA
كيفية تقريب القيم في VBA
كيفية تقريب القيم في VBA