ایجاد نمودارها در VBA

Question

اکسل در ایجاد نمودارها از داده ها در یک کاربرگ بسیار مفید است. اگر بخواهید یک نمودار مستقیماً از VBA و بدون استفاده از هیچ داده ای در یک کاربرگ ایجاد کنید، چه؟ می توانید این کار را با فریب دادن اکسل و اینکه فکر می کنید با اطلاعات یک کاربرگ کار می کند، انجام دهید، و سپس خودتان را ارائه دهید. کلان زیر این مفهوم را نشان می دهد:

Sub MakeChart()
    Add a new chart
    Charts.Add

    Set the dummy data range for the chart
    ActiveChart.SetSourceData Sheets("Sheet1").Range("a1:d4"), _
      PlotBy:=xlColumns

    Manually set the values for the data series
    ActiveChart.SeriesCollection(1).Formula = _
      "=SERIES(""First Data"",{""a"",""b"",""c"",""d""},{2,3,4,5},1)"
    ActiveChart.SeriesCollection(2).Formula = _
      "=SERIES(""Second Data"",{""a"",""b"",""c"",""d""},{6,7,8,9},2)"
    ActiveChart.SeriesCollection(3).Formula = _
      "=SERIES(""Third Data"",{""a"",""b"",""c"",""d""},{10,11,12,13},3)"
End Sub

نظرات در این مثال توضیح می دهد که برای هر مرحله چه اتفاقی می افتد. هنگام تنظیم محدوده داده های ساختگی، روش SetSourceData فرض می کند که محدوده در یک کاربرگ به نام Sheet1 است. اگر چنین برگه ای در ورک بوک خود ندارید، باید دستور را مطابق با آن تغییر دهید.

بعداً، هنگام تنظیم دستی مقادیر برای سری داده ها، دستور SERIES برای تعیین برچسب سری (داده های اول، داده های دوم و داده های سوم)، آرایه برچسب های دسته (a، b، c، و d) استفاده می شود. در همه سری ها)، آرایه مقادیر برای سری، و عددی که مشخص می کند کدام شماره سری را نشان می دهد.