یکی از بهترین روش ها برای ایجاد چارت در VBA به صورت زیر می باشد.

کد:
Dim mychart As Chart
Set mychart = ActiveWorkbook.Charts("نام چارت مورد نظر")
     
mychart.ChartType = xlXYScatterLinesNoMarkers
mychart.SetSourceData Source:=Worksheets("نام شیت داده ها").Range("A:A,C:C"), PlotBy:=xlColumns
mychart.Axes(xlValue, xlPrimary).MinimumScale = 0
mychart.Axes(xlCategory, xlPrimary).HasTitle = True
mychart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "نام محور افقی"
خط اول یک شی از نوع چارت ایجاد کرد.
خط دوم مقدار شی رو برابر با یک چارت که در صفحه اکسل موجود است کرد.
خط سوم نوع چارت رو مشخص می کنه
خط چهارم حدود داده ها رو برای رسم چارت مشخص می کنه
خط پنجم کمترین مقادیر برای چارت
خط ششم مشخص می کنه که محور x دارای عنوان است
و خط آخر هم Title رو مشخص می کنه


البته امکانات دیگر رو هم می توان بهش اضافه کرد.

مثلا برای ایحاد جدول جدید از می توان به جای خط دوم کد قبلی این خط رو نوشت:
کد:
Set mychart = ActiveWorkbook.Charts.Add
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.